home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / BBS / SECOND_SIGHT / Waldo3.SEA / WaldoStuff / Waldo_3.0 / background_2575.xml next >
Extensible Markup Language  |  1992-05-17  |  157KB  |  2,182 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2575</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_13977.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3258.css" />
  11.     <part>
  12.         <id>2</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>312</left>
  23.             <top>296</top>
  24.             <right>343</right>
  25.             <bottom>326</bottom>
  26.         </rect>
  27.         <style>transparent</style>
  28.         <showName> <false /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <true /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>1360</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Chicago</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name>Import Page</name>
  40.         <script>on mouseUpget the number of this cdif it is 1 then exit to hyperCardshow cd btn id 66 of cd 1push cdvisual effect zoom opengo to first cdend mouseUp</script>
  41.     </part>
  42.     <part>
  43.         <id>158</id>
  44.         <type>button</type>
  45.         <visible> <true /> </visible>
  46.         <reserved5> 0 </reserved5>
  47.         <reserved4> 0 </reserved4>
  48.         <reserved3> 0 </reserved3>
  49.         <reserved2> 0 </reserved2>
  50.         <reserved1> 0 </reserved1>
  51.         <enabled> <true /> </enabled>
  52.         <rect>
  53.             <left>230</left>
  54.             <top>297</top>
  55.             <right>276</right>
  56.             <bottom>324</bottom>
  57.         </rect>
  58.         <style>shadow</style>
  59.         <showName> <false /> </showName>
  60.         <highlight> <false /> </highlight>
  61.         <autoHighlight> <false /> </autoHighlight>
  62.         <sharedHighlight> <true /> </sharedHighlight>
  63.         <family>0</family>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>0</icon>
  66.         <textAlign>center</textAlign>
  67.         <font>Chicago</font>
  68.         <textSize>12</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <name></name>
  71.         <script></script>
  72.     </part>
  73.     <part>
  74.         <id>10</id>
  75.         <type>button</type>
  76.         <visible> <true /> </visible>
  77.         <reserved5> 0 </reserved5>
  78.         <reserved4> 0 </reserved4>
  79.         <reserved3> 0 </reserved3>
  80.         <reserved2> 0 </reserved2>
  81.         <reserved1> 0 </reserved1>
  82.         <enabled> <true /> </enabled>
  83.         <rect>
  84.             <left>346</left>
  85.             <top>296</top>
  86.             <right>378</right>
  87.             <bottom>326</bottom>
  88.         </rect>
  89.         <style>transparent</style>
  90.         <showName> <false /> </showName>
  91.         <highlight> <false /> </highlight>
  92.         <autoHighlight> <true /> </autoHighlight>
  93.         <sharedHighlight> <true /> </sharedHighlight>
  94.         <family>0</family>
  95.         <titleWidth>0</titleWidth>
  96.         <icon>1355</icon>
  97.         <textAlign>center</textAlign>
  98.         <font>Chicago</font>
  99.         <textSize>12</textSize>
  100.         <textStyle>plain</textStyle>
  101.         <name>Page1</name>
  102.         <script>on mouseUpif the ShiftKey is down thenvisual effect zoom opengo to last cdexit to HyperCardend ifvisual effect zoom opengo to second cdend mouseUp</script>
  103.     </part>
  104.     <part>
  105.         <id>11</id>
  106.         <type>button</type>
  107.         <visible> <true /> </visible>
  108.         <reserved5> 0 </reserved5>
  109.         <reserved4> 0 </reserved4>
  110.         <reserved3> 0 </reserved3>
  111.         <reserved2> 0 </reserved2>
  112.         <reserved1> 0 </reserved1>
  113.         <enabled> <true /> </enabled>
  114.         <rect>
  115.             <left>9</left>
  116.             <top>297</top>
  117.             <right>47</right>
  118.             <bottom>324</bottom>
  119.         </rect>
  120.         <style>shadow</style>
  121.         <showName> <false /> </showName>
  122.         <highlight> <false /> </highlight>
  123.         <autoHighlight> <false /> </autoHighlight>
  124.         <sharedHighlight> <true /> </sharedHighlight>
  125.         <family>0</family>
  126.         <titleWidth>0</titleWidth>
  127.         <icon>1359</icon>
  128.         <textAlign>center</textAlign>
  129.         <font>Chicago</font>
  130.         <textSize>12</textSize>
  131.         <textStyle>plain</textStyle>
  132.         <name>Waldo</name>
  133.         <script>on mouseUphide msgset the loc of msg to 19,303GLOBAL fWord, wWord, oneMatchput 0 into PartAllput 0 into WholeAllput 0 into WholeOneset lockMessages to trueanswer "FIND, Whole Word Matches-One per Page?" with "Cancel" or "Options" or "FIND"if it is "Cancel" then exit to HyperCardif it is "Options" thenfindOptionsend if-----if it is "Cancel" then cleanExitput 1 into WholeOnefindMatch  PartAll, WholeAll, WholeOneend mouseUpon cleanExitexit to HyperCardend cleanExiton findMatch PartAll, WholeAll, WholeOnehide bg btn id 227 -- HyperButtonput the short name of me into fWordif WholeOne > 0 then put "(Whole Word Matches-One per Page)" into choiceif WholeAll > 0 then put "(Whole Word Matches-All on a Page)" into choiceif PartAll > 0 then put "(Part Word Matches-All on a Page)" into choicepush cardask "Enter word(s) to find..."&RETURN&choice with fWordif it is empty then exit to HyperCardput it into fWordset the name of me to fWordrepeatif WholeOne > 0 or WholeAll > 0 thenfind word fWord in fld id 66 elsefind fWord in fld id 66end ifalert-- unlock ScreenopenCardunlock Screen----if the foundChunk = empty thenalertput "        Sorry could NOT find "&quote&fWord&quote&"!" into msgput the seconds into Tmarkrepeat until the mouseClick or (the seconds - Tmark) > 4mouserend repeathide msgend if----if the foundChunk ‚↠empty thenrepeat until the mouseClickmouserend repeatend ifanswer "Look AGAIN? ‚Äì "&RETURN&choice with "Options" or "Cancel" or "Yes"if it is "Cancel" then exit repeatif it is "Options" then findOptionsif WholeOne > 0 thenlock screengo to next cdend ifend repeathide bg btn id 11show bg btn id 12cleanExitend findMatchon findOptionsput 0 into PartAllput 0 into WholeAllput 0 into WholeOneIf the visible of bg btn id 219 is false thenif fld id 174 = empty thenanswer "**** or Find Options..." with "****" or "Find Options" or "Back"if it is "Back" then send mouseUp to meif it is "****" thenplay  "harpsichord" tempo 400 "b4h#"wait until the sound is "done"findOptionsend ifend ifif fld id 174 ‚↠empty thenanswer "List or Find Options..." with "List" or "Find Options" or "Back"if it is "Back" then send mouseUp to meif it is "List" then FindListend ifend ifanswer "____ Word Match/____ per Page‚Ķ" with "Part/All" or "Whole/All" or "Whole/One"if it is "Part/All" then put 1 into PartAllif it is "Whole/All" then put 1 into WholeAllif it is "Whole/One" then put 1 into WholeOnefindMatch PartAll, WholeAll, WholeOneend findOptionson findListput empty into lookedAtput empty into retryOneput empty into partWordset cursor to 130global holderC, lineList, lineNum, lineBA, buttonD,testOne, lineNumglobal textHolder, fl, lookUp, fWord-----put 174 into activeFieldput the number of lines in fld id activeField into lineListif visible = 1 then show bg fld id 186put empty into visibleshow fld id activeFieldif fld id 174 = empty then lineAdd -- activeFieldput the top of fld id activeField into fldHeightput The textHeight of fld id activeField into fldTextHeightput the number of lines in fld id activeField into NumberOfLinesNTitlesunlock screenset the loc of msg to 19,303put empty into xtestOne-- put values in variablesput the top of fld id activeField into FldTopput the textHeight of fld id activeField into textHeightput the height of fld id activeField into FldHeightput the number of lines in fld id activeField into NumberOfLinesNTitlesrepeat until the mouseClick--  multiply by 2 so selection (hot) spot is in middle of lineput (round(the mouseV-(FldTop))+(abs(round(textHeight*.5)))) into mouseTemp-- put abs(round(mouseTemp/textHeight)) into lineVariableput (round(mouseTemp/textHeight)) into lineVariable-- the next line only if lines are added and deletedput the number of lines in fld id activeField into NumberOfLinesNTitles-- the next line is critical to selectScrolling...you must-- subtract 1 from textHeight to get proper valueput round((the scroll of fld id activeField)/(textHeight-0)) into theScroll-- Select last line codeif (lineVariable+theScroll) > NumberOfLinesNTitles thenselect line NumberOfLinesNTitles of fld id activeFieldput NumberOfLinesNTitles into resetLineput NumberOfLinesNTitles&"/"&NumberOfLinesNTitles&"["&fWord&"]"&"             Opt=Select Click=Exit"end if-- scroll up & select codeif the mouseV < (FldTop) and lineVariable < lineVariable+theScroll ¬¨and lineVariable ‚↠0  thenselect line (round(theScroll/2)) of fld id activeFieldput (round(theScroll/2)) into resetLineput (round(theScroll/2))&"/"&NumberOfLinesNTitles&&"["&fWord&"]"&"             Opt=Select Click=Exit"end if-- select line X codeif the mouseV > FldTop and lineVariable+(theScroll) > 0 and ¬¨lineVariable+(theScroll) <= NumberOfLinesNTitles ¬¨thenselect line ((lineVariable)+(theScroll)) of fld id activeFieldput ((lineVariable)+(theScroll)) into resetLineput ((lineVariable)+(theScroll))&"/"&NumberOfLinesNTitles&&"["&fWord&"]"&"             Opt=Select Click=Exit"end if-- select line 1 codeif the mouseV < FldTop and lineVariable <= 1 thenselect line 1 of fld id activeFieldput one into resetLineput one&"/"&NumberOfLinesNTitles&&"["&fWord&"]"&"             Opt=Select Click=Exit" into msgend if-- --if the optionKey is down thenput the selectedText into fWordset the name of me to fWordhide fld id 174hide msgset cursor to handsend mouseUp to meend ifend repeathide msghide fld id 174-- unlock Screensend mouseUp to meend findListon FindListput empty into lookedAtput empty into retryOneset cursor to 130global holderC, lineList, lineNum, lineBA, buttonD,testOne, lineNumglobal textHolder, fl, lookUp, fWord-----get the number of lines of fld id 174put it into lineListput empty into testOneput "before" into beforeAput the number of lines in fld id 174  into lineListput the short name of fld id 174 into fNput the number of lines in fld id 174  into fLput "["&fWord&"]"&"             Opt=Select Click=Exit" into msgselect line fL of fld id 174put the top of fld id 174 into fldHeightput The textHeight of fld id 174 into fldTextHeightshow fld id 174select line lineList of fld id 174repeat UNTIL THE MOUSECLICKget the mouseVsubtract fldHeight from itadd  round(fldTextHeight/2) to it -- divide by 2 so selection (hot) spot is in middle of lineif round(it/fldTextHeight) > lineList then select line lineList of fld id 174if the mouseV < top of fld id 174 then select line one of fld id 174if the mouseV > top of fld id 174 and round(it/fldTextHeight) <= lineList then select line round(it/fldTextHeight) of fld id 174---------if the optionKey is down thenput the selectedText into fWordset the name of me to fWordhide fld id 174hide msgset cursor to handsend mouseUp to meend ifend repeathide msghide fld id 174-- unlock Screensend mouseUp to meend FindList</script>
  134.     </part>
  135.     <part>
  136.         <id>12</id>
  137.         <type>button</type>
  138.         <visible> <false /> </visible>
  139.         <reserved5> 0 </reserved5>
  140.         <reserved4> 0 </reserved4>
  141.         <reserved3> 0 </reserved3>
  142.         <reserved2> 0 </reserved2>
  143.         <reserved1> 0 </reserved1>
  144.         <enabled> <true /> </enabled>
  145.         <rect>
  146.             <left>10</left>
  147.             <top>296</top>
  148.             <right>48</right>
  149.             <bottom>325</bottom>
  150.         </rect>
  151.         <style>rectangle</style>
  152.         <showName> <false /> </showName>
  153.         <highlight> <false /> </highlight>
  154.         <autoHighlight> <true /> </autoHighlight>
  155.         <sharedHighlight> <true /> </sharedHighlight>
  156.         <family>0</family>
  157.         <titleWidth>0</titleWidth>
  158.         <icon>11859</icon>
  159.         <textAlign>center</textAlign>
  160.         <font>Chicago</font>
  161.         <textSize>12</textSize>
  162.         <textStyle>plain</textStyle>
  163.         <name> return from FIND</name>
  164.         <script>on mouseUpif the CommandKey is down thenhide bkgnd button id 12show bkgnd button id 11exit to HyperCardend ifpop cardhide background button id 12show bkgnd button id 11end mouseUp</script>
  165.     </part>
  166.     <part>
  167.         <id>55</id>
  168.         <type>button</type>
  169.         <visible> <true /> </visible>
  170.         <reserved5> 0 </reserved5>
  171.         <reserved4> 0 </reserved4>
  172.         <reserved3> 0 </reserved3>
  173.         <reserved2> 0 </reserved2>
  174.         <reserved1> 0 </reserved1>
  175.         <enabled> <true /> </enabled>
  176.         <rect>
  177.             <left>55</left>
  178.             <top>266</top>
  179.             <right>87</right>
  180.             <bottom>298</bottom>
  181.         </rect>
  182.         <style>opaque</style>
  183.         <showName> <false /> </showName>
  184.         <highlight> <false /> </highlight>
  185.         <autoHighlight> <true /> </autoHighlight>
  186.         <sharedHighlight> <true /> </sharedHighlight>
  187.         <family>0</family>
  188.         <titleWidth>0</titleWidth>
  189.         <icon>1357</icon>
  190.         <textAlign>center</textAlign>
  191.         <font>Chicago</font>
  192.         <textSize>12</textSize>
  193.         <textStyle>plain</textStyle>
  194.         <name>Mark</name>
  195.         <script>on mouseUpglobal buttonWlock screenput the id of this cd into buttonWput the number of this cd into yesCardhide bg btn id 55set the name of bg btn id 56 to (yesCard-1)show bg btn id 56show bg btn id 57end mouseUp</script>
  196.     </part>
  197.     <part>
  198.         <id>56</id>
  199.         <type>button</type>
  200.         <visible> <false /> </visible>
  201.         <reserved5> 0 </reserved5>
  202.         <reserved4> 0 </reserved4>
  203.         <reserved3> 0 </reserved3>
  204.         <reserved2> 0 </reserved2>
  205.         <reserved1> 0 </reserved1>
  206.         <enabled> <true /> </enabled>
  207.         <rect>
  208.             <left>50</left>
  209.             <top>252</top>
  210.             <right>94</right>
  211.             <bottom>297</bottom>
  212.         </rect>
  213.         <style>transparent</style>
  214.         <showName> <true /> </showName>
  215.         <highlight> <false /> </highlight>
  216.         <autoHighlight> <true /> </autoHighlight>
  217.         <sharedHighlight> <true /> </sharedHighlight>
  218.         <family>0</family>
  219.         <titleWidth>0</titleWidth>
  220.         <icon>1361</icon>
  221.         <textAlign>center</textAlign>
  222.         <font>Chicago</font>
  223.         <textSize>12</textSize>
  224.         <textStyle>plain</textStyle>
  225.         <name>26</name>
  226.         <script>on mouseUplock screenshow bkgnd button id 55hide bkgnd button id 56global buttonWput empty into buttonWhide bkgnd button id 57hide bkgnd button id 58end mouseUp</script>
  227.     </part>
  228.     <part>
  229.         <id>57</id>
  230.         <type>button</type>
  231.         <visible> <false /> </visible>
  232.         <reserved5> 0 </reserved5>
  233.         <reserved4> 0 </reserved4>
  234.         <reserved3> 0 </reserved3>
  235.         <reserved2> 0 </reserved2>
  236.         <reserved1> 0 </reserved1>
  237.         <enabled> <true /> </enabled>
  238.         <rect>
  239.             <left>57</left>
  240.             <top>298</top>
  241.             <right>84</right>
  242.             <bottom>323</bottom>
  243.         </rect>
  244.         <style>transparent</style>
  245.         <showName> <false /> </showName>
  246.         <highlight> <false /> </highlight>
  247.         <autoHighlight> <true /> </autoHighlight>
  248.         <sharedHighlight> <true /> </sharedHighlight>
  249.         <family>0</family>
  250.         <titleWidth>0</titleWidth>
  251.         <icon>1012</icon>
  252.         <textAlign>center</textAlign>
  253.         <font>Chicago</font>
  254.         <textSize>12</textSize>
  255.         <textStyle>plain</textStyle>
  256.         <name></name>
  257.         <script>on mouseUpglobal buttonW, thisBput the id of this card into thisBhide bg btn id 227 -- HyperButtonvisual effect zoom opengo buttonWhide bkgnd button id 57show bkgnd button id 58end mouseUp</script>
  258.     </part>
  259.     <part>
  260.         <id>66</id>
  261.         <type>field</type>
  262.         <visible> <true /> </visible>
  263.         <dontWrap> <false /> </dontWrap>
  264.         <dontSearch> <false /> </dontSearch>
  265.         <sharedText> <false /> </sharedText>
  266.         <fixedLineHeight> <false /> </fixedLineHeight>
  267.         <autoTab> <false /> </autoTab>
  268.         <lockText> <true /> </lockText>
  269.         <rect>
  270.             <left>0</left>
  271.             <top>19</top>
  272.             <right>512</right>
  273.             <bottom>260</bottom>
  274.         </rect>
  275.         <style>scrolling</style>
  276.         <autoSelect> <false /> </autoSelect>
  277.         <showLines> <false /> </showLines>
  278.         <wideMargins> <false /> </wideMargins>
  279.         <multipleLines> <false /> </multipleLines>
  280.         <reservedFamily> 0 </reservedFamily>
  281.         <titleWidth>0</titleWidth>
  282.         <icon>0</icon>
  283.         <textAlign>left</textAlign>
  284.         <font>Monaco</font>
  285.         <textSize>12</textSize>
  286.         <textStyle>plain</textStyle>
  287.         <textHeight>16</textHeight>
  288.         <name>Monaco</name>
  289.         <script>on mouseDown tempselect the clickLineput word 2 of the clickline into selectedLineput "*" into X--if the shiftKey is down and the last char of the first word of the selectedtext is ")" thenask "Enter a title" with (word two to (the number of words in the selectedtext) of the selectedtext)if it is empty thenexit to HyperCardelserepeatif offset("*",it) > 0 thendelete char offset("*",it) of itelseexit repeatend ifend repeatif the number of chars in it > 68 thenput "The Ttle was too long‚Ķtry again."beepwait 3 sechide msgend ifput (word one of line selectedLine of me)&" "&it&X into line selectedLine of meend ifend ifget  word one of ( the selectedText)delete the last char of itif it is not a number or it is empty then exit to HyperCardvisual effect zoom opengo to cd it+1end mouseDown</script>
  290.     </part>
  291.     <part>
  292.         <id>58</id>
  293.         <type>button</type>
  294.         <visible> <false /> </visible>
  295.         <reserved5> 0 </reserved5>
  296.         <reserved4> 0 </reserved4>
  297.         <reserved3> 0 </reserved3>
  298.         <reserved2> 0 </reserved2>
  299.         <reserved1> 0 </reserved1>
  300.         <enabled> <true /> </enabled>
  301.         <rect>
  302.             <left>57</left>
  303.             <top>298</top>
  304.             <right>84</right>
  305.             <bottom>323</bottom>
  306.         </rect>
  307.         <style>transparent</style>
  308.         <showName> <false /> </showName>
  309.         <highlight> <false /> </highlight>
  310.         <autoHighlight> <true /> </autoHighlight>
  311.         <sharedHighlight> <true /> </sharedHighlight>
  312.         <family>0</family>
  313.         <titleWidth>0</titleWidth>
  314.         <icon>1013</icon>
  315.         <textAlign>center</textAlign>
  316.         <font>Chicago</font>
  317.         <textSize>12</textSize>
  318.         <textStyle>plain</textStyle>
  319.         <name></name>
  320.         <script>on mouseUpglobal thisBhide bg btn id 227 -- HyperButtonvisual effect zoom opengo thisBshow bkgnd button id 57hide bkgnd button id 58end mouseUp</script>
  321.     </part>
  322.     <part>
  323.         <id>102</id>
  324.         <type>button</type>
  325.         <visible> <false /> </visible>
  326.         <reserved5> 0 </reserved5>
  327.         <reserved4> 0 </reserved4>
  328.         <reserved3> 0 </reserved3>
  329.         <reserved2> 0 </reserved2>
  330.         <reserved1> 0 </reserved1>
  331.         <enabled> <true /> </enabled>
  332.         <rect>
  333.             <left>11</left>
  334.             <top>257</top>
  335.             <right>502</right>
  336.             <bottom>327</bottom>
  337.         </rect>
  338.         <style>transparent</style>
  339.         <showName> <false /> </showName>
  340.         <highlight> <false /> </highlight>
  341.         <autoHighlight> <false /> </autoHighlight>
  342.         <sharedHighlight> <true /> </sharedHighlight>
  343.         <family>0</family>
  344.         <titleWidth>0</titleWidth>
  345.         <icon>0</icon>
  346.         <textAlign>center</textAlign>
  347.         <font>Chicago</font>
  348.         <textSize>12</textSize>
  349.         <textStyle>plain</textStyle>
  350.         <name>HIDE</name>
  351.         <script></script>
  352.     </part>
  353.     <part>
  354.         <id>120</id>
  355.         <type>button</type>
  356.         <visible> <true /> </visible>
  357.         <reserved5> 0 </reserved5>
  358.         <reserved4> 0 </reserved4>
  359.         <reserved3> 0 </reserved3>
  360.         <reserved2> 0 </reserved2>
  361.         <reserved1> 0 </reserved1>
  362.         <enabled> <true /> </enabled>
  363.         <rect>
  364.             <left>276</left>
  365.             <top>294</top>
  366.             <right>310</right>
  367.             <bottom>328</bottom>
  368.         </rect>
  369.         <style>transparent</style>
  370.         <showName> <false /> </showName>
  371.         <highlight> <false /> </highlight>
  372.         <autoHighlight> <true /> </autoHighlight>
  373.         <sharedHighlight> <true /> </sharedHighlight>
  374.         <family>0</family>
  375.         <titleWidth>0</titleWidth>
  376.         <icon>1356</icon>
  377.         <textAlign>center</textAlign>
  378.         <font>Chicago</font>
  379.         <textSize>12</textSize>
  380.         <textStyle>plain</textStyle>
  381.         <name>Page ></name>
  382.         <script>on mouseUpset the loc of msg to 19,303put empty into rpTitleif the shiftKey is down thenPUT random(number of cards - 1) into RandomPagerepeat with counter = 0 to 30put line counter of fld ID 66 of cd RandomPage+1 into testif offset("*",test) > 0 thenput (RandomPage)&")"&&test&return into rpTitleexit repeatend ifend repeatput rpTitle into msgelseput empty into RandomPageend ifask "Enter Page Number" with  RandomPagerepeat with counter  = 1 to the length of itif charToNum(char counter of it) > 57 or¬¨charToNum(char counter of it) < 48  thenalertput empty into itend ifend repeathide msgif it = "" thenexit to HyperCard elseif it > the number of cds -1 thenplay "harpsichord" tempo 400 "b4h#"exit to HyperCardend ifvisual effect zoom opengo to card (it+1)end ifend mouseUp</script>
  383.     </part>
  384.     <part>
  385.         <id>207</id>
  386.         <type>button</type>
  387.         <visible> <false /> </visible>
  388.         <reserved5> 0 </reserved5>
  389.         <reserved4> 0 </reserved4>
  390.         <reserved3> 0 </reserved3>
  391.         <reserved2> 0 </reserved2>
  392.         <reserved1> 0 </reserved1>
  393.         <enabled> <true /> </enabled>
  394.         <rect>
  395.             <left>379</left>
  396.             <top>296</top>
  397.             <right>459</right>
  398.             <bottom>327</bottom>
  399.         </rect>
  400.         <style>opaque</style>
  401.         <showName> <false /> </showName>
  402.         <highlight> <true /> </highlight>
  403.         <autoHighlight> <false /> </autoHighlight>
  404.         <sharedHighlight> <true /> </sharedHighlight>
  405.         <family>0</family>
  406.         <titleWidth>0</titleWidth>
  407.         <icon>0</icon>
  408.         <textAlign>center</textAlign>
  409.         <font>Chicago</font>
  410.         <textSize>12</textSize>
  411.         <textStyle>plain</textStyle>
  412.         <name>InFoldedPages</name>
  413.         <script></script>
  414.     </part>
  415.     <part>
  416.         <id>122</id>
  417.         <type>button</type>
  418.         <visible> <false /> </visible>
  419.         <reserved5> 0 </reserved5>
  420.         <reserved4> 0 </reserved4>
  421.         <reserved3> 0 </reserved3>
  422.         <reserved2> 0 </reserved2>
  423.         <reserved1> 0 </reserved1>
  424.         <enabled> <true /> </enabled>
  425.         <rect>
  426.             <left>384</left>
  427.             <top>295</top>
  428.             <right>419</right>
  429.             <bottom>327</bottom>
  430.         </rect>
  431.         <style>transparent</style>
  432.         <showName> <false /> </showName>
  433.         <highlight> <false /> </highlight>
  434.         <autoHighlight> <true /> </autoHighlight>
  435.         <sharedHighlight> <true /> </sharedHighlight>
  436.         <family>0</family>
  437.         <titleWidth>0</titleWidth>
  438.         <icon>1353</icon>
  439.         <textAlign>center</textAlign>
  440.         <font>Chicago</font>
  441.         <textSize>12</textSize>
  442.         <textStyle>plain</textStyle>
  443.         <name>Fold ></name>
  444.         <script>on mouseUpset cursor to watchif the shiftKey is down thenput line two of cd fld "AllFoldedPages" of cd 1 into AllFoldedPagesgoFold AllFoldedPagesend ifput line one of cd fld "AllFoldedPages" of cd 1 into AllFoldedPagesgoFold AllFoldedPagesend mouseUpon goFold AllFoldedPagesget the number of this cdif it = (last item of  AllFoldedPages) thenvisual effect dissolve very fastgo to cd (item one of AllFoldedPages)exit to HyperCardend ifrepeat with counter = 1 to (the number of items in AllFoldedPages)if (item counter of AllFoldedPages) > it thenvisual effect dissolve very fastgo to cd (item (counter) of AllFoldedPages)exit to HyperCardend ifend repeatif number of this cd = the number of cds thenvisual effect dissolve very fastgo to cd (the first item of AllFoldedPages)exit to HyperCardend ifif number of this cd >  the last item of  AllFoldedPages thenvisual effect dissolve very fastgo to cd (the first item of AllFoldedPages)exit to HyperCardend ifend goFold</script>
  445.     </part>
  446.     <part>
  447.         <id>121</id>
  448.         <type>button</type>
  449.         <visible> <false /> </visible>
  450.         <reserved5> 0 </reserved5>
  451.         <reserved4> 0 </reserved4>
  452.         <reserved3> 0 </reserved3>
  453.         <reserved2> 0 </reserved2>
  454.         <reserved1> 0 </reserved1>
  455.         <enabled> <true /> </enabled>
  456.         <rect>
  457.             <left>421</left>
  458.             <top>295</top>
  459.             <right>456</right>
  460.             <bottom>327</bottom>
  461.         </rect>
  462.         <style>transparent</style>
  463.         <showName> <false /> </showName>
  464.         <highlight> <false /> </highlight>
  465.         <autoHighlight> <true /> </autoHighlight>
  466.         <sharedHighlight> <true /> </sharedHighlight>
  467.         <family>0</family>
  468.         <titleWidth>0</titleWidth>
  469.         <icon>1354</icon>
  470.         <textAlign>center</textAlign>
  471.         <font>Chicago</font>
  472.         <textSize>12</textSize>
  473.         <textStyle>plain</textStyle>
  474.         <name>< FOLD</name>
  475.         <script>on mouseUpset cursor to watchif the shiftKey is down thenput line two of cd fld "AllFoldedPages" of cd 1 into AllFoldedPagesgoFold AllFoldedPagesend ifput line one of cd fld "AllFoldedPages" of cd 1 into AllFoldedPagesgoFold AllFoldedPagesend mouseUpon goFold AllFoldedPagesset cursor to watchget the number of this cdif it = ( item one of AllFoldedPages) thenvisual effect dissolve very fastgo to cd (last item of AllFoldedPages)exit to HyperCardend ifrepeat with counter = (the number of items in AllFoldedPages) down to 1if (item counter of AllFoldedPages) < it thenvisual effect dissolve very fastgo to cd ( item counter of AllFoldedPages)exit to HyperCardend ifend repeatif counter = 1 thenvisual effect dissolve very fastgo to cd ( last item of AllFoldedPages)end ifif number of this cd = 2 thenvisual effect dissolve very fastgo to cd (the last item of AllFoldedPages)exit to HyperCardend ifexit to HyperCardend goFold</script>
  476.     </part>
  477.     <part>
  478.         <id>135</id>
  479.         <type>button</type>
  480.         <visible> <true /> </visible>
  481.         <reserved5> 0 </reserved5>
  482.         <reserved4> 0 </reserved4>
  483.         <reserved3> 0 </reserved3>
  484.         <reserved2> 0 </reserved2>
  485.         <reserved1> 0 </reserved1>
  486.         <enabled> <true /> </enabled>
  487.         <rect>
  488.             <left>496</left>
  489.             <top>262</top>
  490.             <right>511</right>
  491.             <bottom>281</bottom>
  492.         </rect>
  493.         <style>transparent</style>
  494.         <showName> <false /> </showName>
  495.         <highlight> <false /> </highlight>
  496.         <autoHighlight> <true /> </autoHighlight>
  497.         <sharedHighlight> <true /> </sharedHighlight>
  498.         <family>0</family>
  499.         <titleWidth>0</titleWidth>
  500.         <icon>1352</icon>
  501.         <textAlign>center</textAlign>
  502.         <font>Chicago</font>
  503.         <textSize>12</textSize>
  504.         <textStyle>plain</textStyle>
  505.         <name>SET SCROLL TO 0 </name>
  506.         <script>on mouseUpif the shiftKey is down thenset the scroll of field 1 to 0exit to HyperCardend ifset the scroll of fld id 66 to (the scroll of fld id 66 - (the textHeight of fld id 66))end mouseUpon mouseStillDownrepeat until the mouse is Upset the scroll of fld id 66 to ((the scroll of fld id 66 - (the textHeight of fld id 66)))end repeatend mouseStillDown</script>
  507.     </part>
  508.     <part>
  509.         <id>141</id>
  510.         <type>button</type>
  511.         <visible> <true /> </visible>
  512.         <reserved5> 0 </reserved5>
  513.         <reserved4> 0 </reserved4>
  514.         <reserved3> 0 </reserved3>
  515.         <reserved2> 0 </reserved2>
  516.         <reserved1> 0 </reserved1>
  517.         <enabled> <true /> </enabled>
  518.         <rect>
  519.             <left>225</left>
  520.             <top>262</top>
  521.             <right>257</right>
  522.             <bottom>294</bottom>
  523.         </rect>
  524.         <style>transparent</style>
  525.         <showName> <false /> </showName>
  526.         <highlight> <false /> </highlight>
  527.         <autoHighlight> <true /> </autoHighlight>
  528.         <sharedHighlight> <true /> </sharedHighlight>
  529.         <family>0</family>
  530.         <titleWidth>0</titleWidth>
  531.         <icon>1350</icon>
  532.         <textAlign>center</textAlign>
  533.         <font>Chicago</font>
  534.         <textSize>12</textSize>
  535.         <textStyle>plain</textStyle>
  536.         <name>Titles ></name>
  537.         <script>on mouseUphide msgset the loc of msg to 19,303put empty into Tcardset the cursor to watchput empty into fld id 205repeat with counter = 142 to 151if the short name of bg btn id counter = 0 thenadd 1 to Tcardend ifif Tcard = 10  thenplay "Harpsichord" tempo 400 "b4h#"exit to HyperCardend ifend repeattitleSend mouseUpon titleSset the cursor to watchset the loc of msg to 19,303put "["&(cd fld  "markGlobal" of cd 1)&"]   Opt=Go  Cmnd=Transfers  Click=Exit" into msgset the lockMessages to truerepeat with counter = 142 to 151if the mouseClick thenhide msgexit to HyperCardend ifput the short name of bg btn id counter into Ncardif Ncard = 0  thennext repeatend ifadd one to Ncardput fld id 66 of cd Ncard into tempCardrepeat with counter = 0 to 30put line counter of tempCard into testif offset("*",test) > 0 thenput (Ncard-1)&")"&&test&return after tempFieldexit repeatend ifend repeatif offset("*",test) = 0 then put (Ncard-1)&")"&return after tempFieldend repeatif tempField = empty thenalertexit to HyperCardend ifput tempField into fld id 205set the cursor to 131put the number of lines in  fld id 205 into lineNumif lineNum = 0 then exit to HyperCardput the top of fld id 205 into fldHeightput The textHeight of fld id 205 into fldTextHeightshow fld id 205put the number of lines in fld id 177 into NumberOfLinesNTitlesrepeat UNTIL THE MOUSECLICKset the cursor to 131put the number of lines in fld id 177 into NumberOfLinesNTitlesget the mouseVsubtract fldHeight from itadd  abs(round(fldTextHeight/2)) to it -- divide by 2 so selection (hot) spot is in middle of lineif (round(it/fldTextHeight)) > lineNum then select line lineNum of fld id 205if the mouseV < top of fld id 205 then select line one of fld id 205if the mouseV > top of fld id 205 and (abs(round(it/fldTextHeight))) < lineNum+1 and (abs(round(it/fldTextHeight))) > 0 then select line abs(round(it/fldTextHeight)) of fld id 205--put the selectedText into lookUp---------if the  optionKey is down thenput offset(")",lookUp) into bracketNput char 1 to (bracketN-1) of  lookUp into cNumhide fld id 205hide fld id 177hide msgcloseCardvisual effect zoom opengo to cd cNum +1openCardexit to HyperCardend ifif the  commandKey is down thenput lookUpanswer "Transfer to Title List?" With¬¨"Yes" or "Cancel"if it is "cancel" thenput "["&(cd fld  "markGlobal" of cd 1)&"]   Opt=Go  Cmnd=Transfers  Click=Exit" into msgset cursor to handnext repeatend ifshow bg fld id 177answer "After any Titles/Replace Titles?" ¬¨with "After" or "Replace" or "Cancel"put it into testif it is "Cancel" thenhide fld id 177put "["&(cd fld  "markGlobal" of cd 1)&"]   Opt=Go  Cmnd=Transfers  Click=Exit" into msgset cursor to handnext repeatend ifput it into TransferDispositionput empty into fieldMsgif TransferDisposition = "After" and (NumberOfLinesNTitles + 1) > 100 thenput "(Selected may delete lines in Title List)" into fieldMsgend ifif TransferDisposition = "After" and ((the number of lines in fld id 205) + NumberOfLinesNTitles) > 100 thenput "(All may delete lines in Title List)" into fieldMsgend ifif TransferDisposition = "After" and ((the number of lines in fld id 205) + NumberOfLinesNTitles) > 100 thenif NumberOfLinesNTitles + 1 > 100 thenput "(All or Selected may delete lines in Title List)" into fieldMsgend ifend ifif TransferDisposition = "After" and NumberOfLinesNTitles + 1 > 100 thenif ((the number of lines in fld id 205) + NumberOfLinesNTitles) > 100  thenput "(All or Selected may delete lines in Title List)" into fieldMsgend ifend ifanswer "The Selected Line or All Lines?"&return&fieldMsg  with "Selected" or "All" or "Cancel"if it is "cancel" thenhide fld id 177put "["&(cd fld  "markGlobal" of cd 1)&"]   Opt=Go  Cmnd=Transfers  Click=Exit" into msgset cursor to handnext repeatend if-- these next 2 lines resets scan when Titles List is modifiedglobal xLnput 1 into xLn-- select after the last char of fld id 177if it is "Selected" thenif test is "Replace" thenset the name of fld id 177 to " "put lookUp into fld id 177put "["&(cd fld  "markGlobal" of cd 1)&"]   Opt=Go  Cmnd=Transfers  Click=Exit" into msgdeleteExtraend ifif test is "After" then put lookUp&return after fld id 177 -- ¬•¬•set the autoTab of fld id 177 to trueput "["&(cd fld  "markGlobal" of cd 1)&"]   Opt=Go  Cmnd=Transfers  Click=Exit" into msgdeleteExtraset cursor to handnext repeatend ifif it is "All" thenif test is "Replace" thenset the name of fld id 177 to " "put fld id 205 into fld id 177put "["&(cd fld  "markGlobal" of cd 1)&"]   Opt=Go  Cmnd=Transfers  Click=Exit" into msgdeleteExtraend ifif test is "After" then put fld id 205 after fld id 177put "["&(cd fld  "markGlobal" of cd 1)&"]   Opt=Go  Cmnd=Transfers  Click=Exit" into msgdeleteExtraset the autoTab of fld id 177 to trueset the cursor to 131end ifend ifend repeat---hide msghide fld id 205hide fld id 177put empty into fld id 205exit to HyperCardend titleSon deleteExtraif ((the number of lines in fld id 177) + 1) > 100 or ((the number of lines in fld id 205) + (the number of lines in fld id 177)) > 100 thendelete line 101 to (the number of lines in fld id 177 ) of fld id 177end ifend deleteExtra</script>
  538.     </part>
  539.     <part>
  540.         <id>142</id>
  541.         <type>button</type>
  542.         <visible> <true /> </visible>
  543.         <reserved5> 0 </reserved5>
  544.         <reserved4> 0 </reserved4>
  545.         <reserved3> 0 </reserved3>
  546.         <reserved2> 0 </reserved2>
  547.         <reserved1> 0 </reserved1>
  548.         <enabled> <true /> </enabled>
  549.         <rect>
  550.             <left>277</left>
  551.             <top>262</top>
  552.             <right>312</right>
  553.             <bottom>276</bottom>
  554.         </rect>
  555.         <style>roundrect</style>
  556.         <showName> <true /> </showName>
  557.         <highlight> <false /> </highlight>
  558.         <autoHighlight> <true /> </autoHighlight>
  559.         <sharedHighlight> <true /> </sharedHighlight>
  560.         <family>0</family>
  561.         <titleWidth>0</titleWidth>
  562.         <icon>0</icon>
  563.         <textAlign>center</textAlign>
  564.         <font>Chicago</font>
  565.         <textSize>12</textSize>
  566.         <textStyle>condense</textStyle>
  567.         <name>0</name>
  568.         <script>on mouseUpSetMarkBtns (the id of me), (the short name of me)end mouseUp</script>
  569.     </part>
  570.     <part>
  571.         <id>143</id>
  572.         <type>button</type>
  573.         <visible> <true /> </visible>
  574.         <reserved5> 0 </reserved5>
  575.         <reserved4> 0 </reserved4>
  576.         <reserved3> 0 </reserved3>
  577.         <reserved2> 0 </reserved2>
  578.         <reserved1> 0 </reserved1>
  579.         <enabled> <true /> </enabled>
  580.         <rect>
  581.             <left>315</left>
  582.             <top>262</top>
  583.             <right>350</right>
  584.             <bottom>276</bottom>
  585.         </rect>
  586.         <style>roundrect</style>
  587.         <showName> <true /> </showName>
  588.         <highlight> <false /> </highlight>
  589.         <autoHighlight> <true /> </autoHighlight>
  590.         <sharedHighlight> <true /> </sharedHighlight>
  591.         <family>0</family>
  592.         <titleWidth>0</titleWidth>
  593.         <icon>0</icon>
  594.         <textAlign>center</textAlign>
  595.         <font>Chicago</font>
  596.         <textSize>12</textSize>
  597.         <textStyle>condense</textStyle>
  598.         <name>0</name>
  599.         <script>on mouseUpSetMarkBtns (the id of me), (the short name of me)end mouseUp</script>
  600.     </part>
  601.     <part>
  602.         <id>144</id>
  603.         <type>button</type>
  604.         <visible> <true /> </visible>
  605.         <reserved5> 0 </reserved5>
  606.         <reserved4> 0 </reserved4>
  607.         <reserved3> 0 </reserved3>
  608.         <reserved2> 0 </reserved2>
  609.         <reserved1> 0 </reserved1>
  610.         <enabled> <true /> </enabled>
  611.         <rect>
  612.             <left>353</left>
  613.             <top>262</top>
  614.             <right>389</right>
  615.             <bottom>276</bottom>
  616.         </rect>
  617.         <style>roundrect</style>
  618.         <showName> <true /> </showName>
  619.         <highlight> <false /> </highlight>
  620.         <autoHighlight> <true /> </autoHighlight>
  621.         <sharedHighlight> <true /> </sharedHighlight>
  622.         <family>0</family>
  623.         <titleWidth>0</titleWidth>
  624.         <icon>0</icon>
  625.         <textAlign>center</textAlign>
  626.         <font>Chicago</font>
  627.         <textSize>12</textSize>
  628.         <textStyle>condense</textStyle>
  629.         <name>0</name>
  630.         <script>on mouseUpSetMarkBtns (the id of me), (the short name of me)end mouseUp</script>
  631.     </part>
  632.     <part>
  633.         <id>145</id>
  634.         <type>button</type>
  635.         <visible> <true /> </visible>
  636.         <reserved5> 0 </reserved5>
  637.         <reserved4> 0 </reserved4>
  638.         <reserved3> 0 </reserved3>
  639.         <reserved2> 0 </reserved2>
  640.         <reserved1> 0 </reserved1>
  641.         <enabled> <true /> </enabled>
  642.         <rect>
  643.             <left>392</left>
  644.             <top>262</top>
  645.             <right>427</right>
  646.             <bottom>276</bottom>
  647.         </rect>
  648.         <style>roundrect</style>
  649.         <showName> <true /> </showName>
  650.         <highlight> <false /> </highlight>
  651.         <autoHighlight> <true /> </autoHighlight>
  652.         <sharedHighlight> <true /> </sharedHighlight>
  653.         <family>0</family>
  654.         <titleWidth>0</titleWidth>
  655.         <icon>0</icon>
  656.         <textAlign>center</textAlign>
  657.         <font>Chicago</font>
  658.         <textSize>12</textSize>
  659.         <textStyle>condense</textStyle>
  660.         <name>0</name>
  661.         <script>on mouseUpSetMarkBtns (the id of me), (the short name of me)end mouseUp</script>
  662.     </part>
  663.     <part>
  664.         <id>146</id>
  665.         <type>button</type>
  666.         <visible> <true /> </visible>
  667.         <reserved5> 0 </reserved5>
  668.         <reserved4> 0 </reserved4>
  669.         <reserved3> 0 </reserved3>
  670.         <reserved2> 0 </reserved2>
  671.         <reserved1> 0 </reserved1>
  672.         <enabled> <true /> </enabled>
  673.         <rect>
  674.             <left>430</left>
  675.             <top>262</top>
  676.             <right>465</right>
  677.             <bottom>276</bottom>
  678.         </rect>
  679.         <style>roundrect</style>
  680.         <showName> <true /> </showName>
  681.         <highlight> <false /> </highlight>
  682.         <autoHighlight> <true /> </autoHighlight>
  683.         <sharedHighlight> <true /> </sharedHighlight>
  684.         <family>0</family>
  685.         <titleWidth>0</titleWidth>
  686.         <icon>0</icon>
  687.         <textAlign>center</textAlign>
  688.         <font>Chicago</font>
  689.         <textSize>12</textSize>
  690.         <textStyle>condense</textStyle>
  691.         <name>0</name>
  692.         <script>on mouseUpSetMarkBtns (the id of me), (the short name of me)end mouseUp</script>
  693.     </part>
  694.     <part>
  695.         <id>147</id>
  696.         <type>button</type>
  697.         <visible> <true /> </visible>
  698.         <reserved5> 0 </reserved5>
  699.         <reserved4> 0 </reserved4>
  700.         <reserved3> 0 </reserved3>
  701.         <reserved2> 0 </reserved2>
  702.         <reserved1> 0 </reserved1>
  703.         <enabled> <true /> </enabled>
  704.         <rect>
  705.             <left>278</left>
  706.             <top>278</top>
  707.             <right>313</right>
  708.             <bottom>292</bottom>
  709.         </rect>
  710.         <style>roundrect</style>
  711.         <showName> <true /> </showName>
  712.         <highlight> <false /> </highlight>
  713.         <autoHighlight> <true /> </autoHighlight>
  714.         <sharedHighlight> <true /> </sharedHighlight>
  715.         <family>0</family>
  716.         <titleWidth>0</titleWidth>
  717.         <icon>0</icon>
  718.         <textAlign>center</textAlign>
  719.         <font>Chicago</font>
  720.         <textSize>12</textSize>
  721.         <textStyle>condense</textStyle>
  722.         <name>0</name>
  723.         <script>on mouseUpSetMarkBtns (the id of me), (the short name of me)end mouseUp</script>
  724.     </part>
  725.     <part>
  726.         <id>148</id>
  727.         <type>button</type>
  728.         <visible> <true /> </visible>
  729.         <reserved5> 0 </reserved5>
  730.         <reserved4> 0 </reserved4>
  731.         <reserved3> 0 </reserved3>
  732.         <reserved2> 0 </reserved2>
  733.         <reserved1> 0 </reserved1>
  734.         <enabled> <true /> </enabled>
  735.         <rect>
  736.             <left>316</left>
  737.             <top>278</top>
  738.             <right>351</right>
  739.             <bottom>292</bottom>
  740.         </rect>
  741.         <style>roundrect</style>
  742.         <showName> <true /> </showName>
  743.         <highlight> <false /> </highlight>
  744.         <autoHighlight> <true /> </autoHighlight>
  745.         <sharedHighlight> <true /> </sharedHighlight>
  746.         <family>0</family>
  747.         <titleWidth>0</titleWidth>
  748.         <icon>0</icon>
  749.         <textAlign>center</textAlign>
  750.         <font>Chicago</font>
  751.         <textSize>12</textSize>
  752.         <textStyle>condense</textStyle>
  753.         <name>0</name>
  754.         <script>on mouseUpSetMarkBtns (the id of me), (the short name of me)end mouseUp</script>
  755.     </part>
  756.     <part>
  757.         <id>149</id>
  758.         <type>button</type>
  759.         <visible> <true /> </visible>
  760.         <reserved5> 0 </reserved5>
  761.         <reserved4> 0 </reserved4>
  762.         <reserved3> 0 </reserved3>
  763.         <reserved2> 0 </reserved2>
  764.         <reserved1> 0 </reserved1>
  765.         <enabled> <true /> </enabled>
  766.         <rect>
  767.             <left>354</left>
  768.             <top>278</top>
  769.             <right>389</right>
  770.             <bottom>292</bottom>
  771.         </rect>
  772.         <style>roundrect</style>
  773.         <showName> <true /> </showName>
  774.         <highlight> <false /> </highlight>
  775.         <autoHighlight> <true /> </autoHighlight>
  776.         <sharedHighlight> <true /> </sharedHighlight>
  777.         <family>0</family>
  778.         <titleWidth>0</titleWidth>
  779.         <icon>0</icon>
  780.         <textAlign>center</textAlign>
  781.         <font>Chicago</font>
  782.         <textSize>12</textSize>
  783.         <textStyle>condense</textStyle>
  784.         <name>0</name>
  785.         <script>on mouseUpSetMarkBtns (the id of me), (the short name of me)end mouseUp</script>
  786.     </part>
  787.     <part>
  788.         <id>194</id>
  789.         <type>button</type>
  790.         <visible> <true /> </visible>
  791.         <reserved5> 0 </reserved5>
  792.         <reserved4> 0 </reserved4>
  793.         <reserved3> 0 </reserved3>
  794.         <reserved2> 0 </reserved2>
  795.         <reserved1> 0 </reserved1>
  796.         <enabled> <true /> </enabled>
  797.         <rect>
  798.             <left>153</left>
  799.             <top>296</top>
  800.             <right>184</right>
  801.             <bottom>330</bottom>
  802.         </rect>
  803.         <style>transparent</style>
  804.         <showName> <false /> </showName>
  805.         <highlight> <false /> </highlight>
  806.         <autoHighlight> <true /> </autoHighlight>
  807.         <sharedHighlight> <true /> </sharedHighlight>
  808.         <family>0</family>
  809.         <titleWidth>0</titleWidth>
  810.         <icon>1366</icon>
  811.         <textAlign>center</textAlign>
  812.         <font>Chicago</font>
  813.         <textSize>12</textSize>
  814.         <textStyle>plain</textStyle>
  815.         <name></name>
  816.         <script>on mouseDownhide msgset the loc of msg to 19,303put the top of fld id 217 into fldHeightput The textHeight of fld id 217 into fldTextHeightshow fld id 217repeat until the mouse is upget the mouseVsubtract fldHeight from itadd  abs(round(fldTextHeight/2)) to it -- divide by 2 so selection (hot) spot is in middle of lineif the mouseV < top of fld id 217 or the mouseV > bottom of fld id 217  or ¬¨the mouseH < the left of fld id 217 or the mouseH > the Right of fld id 217 thenselect line 6 of fld id 217elseselect line abs(round(it/fldTextHeight)) of fld id 217end ifend repeatput the selectedText into ithide fld id 217if it is empty then exit to HyperCard-- put 1 into mTestput 0 into mTestput it into aTestif aTest is "Load" or aTest is "Save" then lsTitles mTest, aTestif aTest is "Erase" or aTest is "Name" then erTitles mTest, aTestend mouseDownon lsTitles mTest, aTest---Title Listif (script of fld id 177) <> empty and mTest = 0 thenput the short name of fld id 177 into fNput fld id 177 into tempScriptput the number of lines in tempScript into fL-- put "This Title List is‚Ķ"&fN&"‚Ķ("&fL&" items out of 100)" into msgend ifif aTest is "Load" thenif number of this cd <> 1 and mTest = 0 thenif the autoTab of fld id 177 = true thenanswer "Title List was modified‚ĶContinue Erases it!" with "Continue" or "Stop"if it is "Stop" thenhide msgexit to HyperCardend ifend ifend ifput fld id 177 into tempScriptput the number of lines in tempScript into fLput "This Title List is‚Ķ"&fN&"‚Ķ("&fL&" items out of 100)" into msganswer file "Title List to Load‚Ķ(.tl)" of type Textif the result is "Cancel" thenhide msgExit to HyperCardend ifput it into fileLoadput fileLoad into ithide msgif fileLoad is empty then exit to HyperCard--put the length of IT into nameLengthrepeat with counter = nameLength down to 0put char counter of IT into tempif temp = ":" then EXIT REPEATend repeatput char (counter+1) to nameLength of it into tempFileNameput char ((the number of chars in it)-2) to ¬¨(the number of chars in it) of it into tempCharif tempChar ‚↠".tl" thenanswer (tempFileName)&" is not a Title List!"&RETURN&¬¨"The Name MUST have a  .tl  extension."exit to HyperCardend if--put the length of fileLoad into nameLengthrepeat with counter = nameLength down to 0get char counter of fileLoadif it = ":" then EXIT REPEATend repeatput char (counter+1) to nameLength of fileLoad into ITif number of chars in it > 15 thenplay  "harpsichord" tempo 400 "b4h#"put "The Title List Name must be no more than 15 characters!" into msgwait 3 sechide msgexit to HyperCardend ifif the number of this cd > 1 and mTest = 0 thenset the name of fld id 177 to itend ifopen file fileLoadread from FILE fileLoad for 5000if number of this cd <> 1 and mTest = 0 thenset autoTab of fld id 177 to falseend ifclose file fileLoadput it into fld id 177-- these next 2 lines resets scan when Title List is modifiedglobal xLnput 1 into xLnexit to HyperCardend ifif aTest is "Save" thenif fld id 177  = empty thenset cursor to noneplay  "harpsichord" tempo 400 "b4h#"put "Title List is Empty--Nothing to Save!" into msgwait 3 sechide msgend ifPUT EMPTY INTO FILESAVEif mTest = 0 then put the short name of fld id 177 into itif it = " " then put empty into itput "This Title List is‚Ķ"&fN&"‚Ķ("&fL&" items out of 100)" into msgask file "Title List to Save‚Ķ(.tl)" with itif the result is "Cancel" thenhide msgexit to HyperCardend if--put it into FileSaveif FileSave is empty thenhide msgexit to HyperCardend if--put char ((the number of chars in it)-2) to ¬¨(the number of chars in it) of it into tempCharif tempChar ‚↠".tl" thenhide msganswer "Add the correct extension!"&RETURN&¬¨"Enter it again with "&QUOTE&".tl"&QUOTE&" extension."exit to HyperCardend if--put the length of fileSave into nameLengthrepeat with counter = nameLength down to 0put char counter of IT into tempif temp = ":" then EXIT REPEATend repeatput char (counter+1) to nameLength of it into tempFileNameif number of chars in tempFileName > 15 thenplay  "harpsichord" tempo 400 "b4h#"put "The Title List Name must be no more than 15 characters!" into msgwait 3 sechide msgexit to HyperCardend if--if the number of chars in the short name of fld id 177  > 15 thenplay  "harpsichord" tempo 400 "b4h#"put "The Title List Name must be no more than 15 characters!" into msgwait 3 sechide msgexit to HyperCardend ifhide msgopen file FileSaveif number of this cd <> 1 and mTest = 0 thenput fld id 177 into tempScriptwrite tempScript to file FileSaveset autoTab of fld id 177 to falseend ifalertclose file FileSaveexit to HyperCardend ifif the mouseV < 260 then exit to Hypercardget the mouseVend lsTitleson erTitles mTest, aTestif the autoTab of fld id 177 = true thenanswer "Title List is modified/not saved‚ĶContinue?" with "Continue" or "Stop"if it is "Stop" then exit to HyperCardend ifif aTest is "Name" thenput the short name of fld id 177 into tpNameask "Enter Name.tl (up to 15 chars)" with tpNameif the result is "Cancel" then exit to HyperCard--put 0 into tempCharput char ((the number of chars in it)-2) to ¬¨(the number of chars in it) of it into tempCharif tempChar ‚↠".tl" thenanswer QUOTE&it&QUOTE&" isn't a Title List Name!"&RETURN&¬¨"The Name MUST have a  .tl  extension."exit to HyperCardend if--if number of chars in it <= 15 thenset the name of fld id 177 to itelseplay  "harpsichord" tempo 400 "b4h#"put "The Title List Name must be no more than 15 characters!" into msgwait 3 sechide msgexit to HyperCardend ifset the autoTab of fld id 177 to truehide msgexit to HyperCardend ifif aTest is "Erase" thenput the short name of fld id 177 into fNanswer "ERASE Title List "&QUOTE&fN&QUOTE&"?" with "Yes" or "Cancel"if it is "Cancel" then exit to HyperCardput empty into fld id 177set the autoTab of fld id 177 to falseset the name of fld id 177 to " "exit to HyperCardend ifif it is "Cancel" then exit to HyperCardend erTitles</script>
  817.     </part>
  818.     <part>
  819.         <id>195</id>
  820.         <type>button</type>
  821.         <visible> <true /> </visible>
  822.         <reserved5> 0 </reserved5>
  823.         <reserved4> 0 </reserved4>
  824.         <reserved3> 0 </reserved3>
  825.         <reserved2> 0 </reserved2>
  826.         <reserved1> 0 </reserved1>
  827.         <enabled> <true /> </enabled>
  828.         <rect>
  829.             <left>191</left>
  830.             <top>296</top>
  831.             <right>223</right>
  832.             <bottom>330</bottom>
  833.         </rect>
  834.         <style>transparent</style>
  835.         <showName> <false /> </showName>
  836.         <highlight> <false /> </highlight>
  837.         <autoHighlight> <true /> </autoHighlight>
  838.         <sharedHighlight> <true /> </sharedHighlight>
  839.         <family>0</family>
  840.         <titleWidth>0</titleWidth>
  841.         <icon>1366</icon>
  842.         <textAlign>center</textAlign>
  843.         <font>Chicago</font>
  844.         <textSize>12</textSize>
  845.         <textStyle>plain</textStyle>
  846.         <name></name>
  847.         <script>on mouseDownhide msgset the loc of msg to 19,303put the top of fld id 212 into fldHeightput The textHeight of fld id 212 into fldTextHeightshow fld id 212repeat until the mouse is upget the mouseVsubtract fldHeight from itadd  abs(round(fldTextHeight/2)) to it -- divide by 2 so selection (hot) spot is in middle of lineif the mouseV < top of fld id 212 or the mouseV > bottom of fld id 212  or ¬¨the mouseH < the left of fld id 212 or the mouseH > the Right of fld id 212 thenselect line 6 of fld id 212elseselect line abs(round(it/fldTextHeight)) of fld id 212end ifend repeatput the selectedText into ithide fld id 212if it is 0 then exit to HyperCardput 1 into mTestput it into aTestif aTest is "Load" or aTest is "Save" then lsMark mTest, aTestif aTest is "Erase" or aTest is "Name" then erMark mTest, aTestend mouseDownon lsMark  mTest, aTestif fld id 174  <> empty thenput the short name of fld id 174 into fNput the number of lines in fld id 174 into fLput "This Button List is‚Ķ"&fN&"‚Ķ("&fL&" items out of 50)" into msgend ifif aTest is "Load" thenif the autoTab of fld id 174 = true thenanswer "Button List was modified‚ĶContinue Erases it!" with "Continue" or "Stop"if it is "Stop" thenhide msgexit to HyperCardend ifend ifput fld id 174 into tempScriptput the number of lines in tempScript into fLput the short name of fld id 174 into fNput "This Button List is‚Ķ"&fN&"‚Ķ("&fL&" items out of 50)" into msganswer file "Button List to Load‚Ķ(.bl)" of type textif the result is "Cancel" thenhide msgexit to HyperCardend ifput it into fileLoadput fileLoad into ithide msg--put the length of IT into nameLengthrepeat with counter = nameLength down to 0put char counter of IT into tempif temp = ":" then EXIT REPEATend repeatput char (counter+1) to nameLength of it into tempFileNameput 0 into tempCharput char ((the number of chars in it)-2) to ¬¨(the number of chars in it) of it into tempCharif tempChar ‚↠".bl" thenanswer tempFileName&" is not a Button List!"&RETURN&¬¨"The Name MUST have a  .bl  extension."exit to HyperCardend if--if fileLoad is empty then exit to HyperCardput the length of fileLoad into nameLengthrepeat with counter = nameLength down to 0get char counter of fileLoadif it = ":" then EXIT REPEATend repeatput char (counter+1) to nameLength of fileLoad into ITif number of chars in it > 15 thenplay  "harpsichord" tempo 400 "b4h#"put "The Button List Name must be no more than 15 characters!" into msgwait 3 sechide msgexit to HyperCardend ifset the name of fld id 174 to char (counter+1) to nameLength of fileload--open file fileLoadread from FILE fileLoad for 5000put it into fld id 174put empty after the last word of fld id 174set autoTab of fld id 174 to falseclose file fileLoadexit to HyperCardend ifif aTest is "Save" thenif fld id 174 = empty thenset cursor to noneplay  "harpsichord" tempo 400 "b4h#"put "Button List is Empty--Nothing to Save!" into msgwait 3 sechide msgend ifPUT EMPTY INTO FILESAVEput fld id 174 into tempScriptput the number of lines in tempScript into fLput the short name of fld id 174 into fNput "This Button List is‚Ķ"&fN&"‚Ķ("&fL&" items out of 50)" into msgput the short name of fld id 174 into itif it = " " then put empty into itask file "Button List to Save‚Ķ(.bl)" with itif the result is "Cancel" thenhide msgexit to HyperCardend ifput it into FileSave--put char ((the number of chars in it)-2) to ¬¨(the number of chars in it) of it into tempCharif tempChar ‚↠".bl" thenhide msganswer "Add the correct extension!"&RETURN&¬¨"Enter it again with "&QUOTE&".bl"&QUOTE&" extension."exit to HyperCardend if--hide msgif FileSave is empty then exit to HyperCardif the length of (the short name of fld id 174 ) > 15 thenplay  "harpsichord" tempo 400 "b4h#"put "The Button List Name must be no more than 15 characters!" into msgwait 3 sechide msgexit to HyperCardend if--put the length of FileSave into nameLengthrepeat with counter = nameLength down to 0put char counter of IT into tempif temp = ":" then EXIT REPEATend repeatput char (counter+1) to nameLength of it into tempFileNameif number of chars in tempFileName > 15 thenplay  "harpsichord" tempo 400 "b4h#"put "The Button List Name must be no more than 15 characters!" into msgwait 3 sechide msgexit to HyperCardend if--open file FileSavewrite fld id 174  to file FileSaveset autoTab of fld id 174 to falsealertclose file FileSaveexit to HyperCardend ifif the mouseV < 260 then exit to Hypercardif number of this cd is 1 then exit to Hypercardend lsMarkon erMark  mTest, aTestif the autoTab of fld id 174 = true thenanswer "Button List is modified/not saved‚ĶContinue?" with "Continue" or "Stop"if it is "Stop" then exit to HyperCardend ifif aTest is "Name" thenput the short name of fld id 174 into tpNameask "Enter Name.bl (up to 15 chars)" with tpNameif it is empty then exit to HyperCard--put 0 into tempCharput char ((the number of chars in it)-2) to ¬¨(the number of chars in it) of it into tempCharif tempChar ‚↠".bl" thenanswer QUOTE&it&QUOTE&" isn't a Button List Name!"&RETURN&¬¨"The Name MUST have a  .bl  extension."exit to HyperCardend if--if number of chars in it <= 15 thenset the name of fld id 174 to itelseplay  "harpsichord" tempo 400 "b4h#"put "The Button List Name must be no more than 15 characters!" into msgwait 3 sechide msgexit to HyperCardend ifset the autoTab of fld id 174 to truehide msgexit to HyperCardend ifif aTest is "Erase" thenput the short name of fld id 174 into fNanswer "ERASE Button List "&QUOTE&fN&QUOTE&"?" with "Yes" or "Cancel"if it is "Cancel" then exit to HyperCardput empty into fld id 174set the autoTab of fld id 174 to falseset the name of fld id 174 to " "exit to HyperCardend ifend erMark</script>
  848.     </part>
  849.     <part>
  850.         <id>196</id>
  851.         <type>button</type>
  852.         <visible> <true /> </visible>
  853.         <reserved5> 0 </reserved5>
  854.         <reserved4> 0 </reserved4>
  855.         <reserved3> 0 </reserved3>
  856.         <reserved2> 0 </reserved2>
  857.         <reserved1> 0 </reserved1>
  858.         <enabled> <true /> </enabled>
  859.         <rect>
  860.             <left>149</left>
  861.             <top>260</top>
  862.             <right>183</right>
  863.             <bottom>295</bottom>
  864.         </rect>
  865.         <style>transparent</style>
  866.         <showName> <false /> </showName>
  867.         <highlight> <false /> </highlight>
  868.         <autoHighlight> <true /> </autoHighlight>
  869.         <sharedHighlight> <true /> </sharedHighlight>
  870.         <family>0</family>
  871.         <titleWidth>0</titleWidth>
  872.         <icon>1349</icon>
  873.         <textAlign>center</textAlign>
  874.         <font>Chicago</font>
  875.         <textSize>12</textSize>
  876.         <textStyle>plain</textStyle>
  877.         <name>Titles</name>
  878.         <script>on mouseUpSET CURSOR TO watchhide msgmapend mouseUpon mapGLOBAL TempGlobal, visible, tempF, xLnset the loc of msg to 19,303SET CURSOR TO 130put 177 into activeFieldput the number of lines in fld id activeField into lineListif visible = 1 then show bg fld id 186put empty into visibleshow fld id activeFieldif fld id 177 = empty then mapAdd activeFieldput the top of fld id activeField into fldHeightput The textHeight of fld id activeField into fldTextHeightput the number of lines in fld id activeField into NumberOfLinesNTitlesunlock screenset the loc of msg to 19,303put empty into xtestOne-- set the cursor to 131-- put values in variablesput the top of fld id activeField into FldTopput the textHeight of fld id activeField into textHeightput the height of fld id activeField into FldHeightput the number of lines in fld id activeField into NumberOfLinesNTitlesrepeat until the mouseClick--  multiply by 2 so selection (hot) spot is in middle of lineput (round(the mouseV-(FldTop))+(abs(round(textHeight*1)))) into mouseTemp-- put abs(round(mouseTemp/textHeight)) into lineVariableput (round(mouseTemp/textHeight)) into lineVariable-- the next line only if lines are added and deletedput the number of lines in fld id activeField into NumberOfLinesNTitles-- the next line is critical to selectScrolling...you must-- subtract 1 from textHeight to get proper valueput round((the scroll of fld id activeField)/(textHeight-1)) into theScroll-- Select last line codeif (lineVariable+theScroll) > NumberOfLinesNTitles thenselect line NumberOfLinesNTitles of fld id activeFieldput NumberOfLinesNTitles into resetLineput NumberOfLinesNTitles&"/"&NumberOfLinesNTitles&" ["&(the short name of fld id activeField)&"] Shift=Add  Opt=Go  Cmnd=Delete  Click=Exit"end if-- scroll up & select codeif the mouseV < (FldTop) and lineVariable < lineVariable+theScroll ¬¨and lineVariable ‚↠0  thenselect line (round(theScroll/2)) of fld id activeFieldput (round(theScroll/2)) into resetLineput (round(theScroll/2))&"/"&NumberOfLinesNTitles&" ["&(the short name of fld id activeField)&"] Shift=Add  Opt=Go  Cmnd=Delete  Click=Exit"end if-- select line X codeif the mouseV > FldTop and lineVariable+(theScroll) > 0 and ¬¨lineVariable+(theScroll) <= NumberOfLinesNTitles ¬¨thenselect line ((lineVariable)+(theScroll)) of fld id activeFieldput ((lineVariable)+(theScroll)) into resetLineput ((lineVariable)+(theScroll))&"/"&NumberOfLinesNTitles&" ["&(the short name of fld id activeField)&"] Shift=Add  Opt=Go  Cmnd=Delete  Click=Exit"end if-- select line 1 codeif the mouseV < FldTop and lineVariable <= 1 thenselect line 1 of fld id activeFieldput one into resetLineput one&"/"&NumberOfLinesNTitles&" ["&(the short name of fld id activeField)&"] Shift=Add  Opt=Go  Cmnd=Delete  Click=Exit"end ifput the selectedText into lookUpunlock screenif the optionKey is down thenput the selectedText into lookUpif lookUp = empty then next repeatput word 2 to 30 of lookUp into findTexthide fld id activeFieldhide msg-- lock Screenget word 1 of lookUpdelete last char of itif it is not a number thenset cursor to noneplay  "harpsichord" tempo 400 "b4h#"put "                          This is not a Proper Title List!"wait 3 secshide msgexit to HyperCardend ifif it < 1 thenplay  "harpsichord" tempo 400 "b4h#"put "                          That is not a Proper Title!"wait 3 secsmapend ifput it+1 into itvisual effect zoom opengo to cd itif findText ‚↠empty then find word findText in fld id 66-- find word findText in fld id 66if the result <> empty thenunlock Screenplay  "harpsichord" tempo 400 "b4h#"put "        Sorry could NOT find "&quote&findText&quote&"!" into msgput the seconds into Tmarkrepeat until the mouseClickmouserend repeatif visible = 1 thenshow bg fld id 186put empty into visibleend ifhide msgcleanExit activeFieldend ifunlock Screenexit to HyperCardend ifunlock Screenif the shiftKey is down thenlock screenmapAdd activeField, mouseTemp, fldTextHeight, mapText, lookUp, textHolder, lineVariable, theScrollend ifif the commandKey is down thenanswer "Delete "&lookUp&"?" with "Yes" or "Cancel"if it is "Cancel" thenlock screenmapend ifadd  round(fldTextHeight/2) to mouseTemp -- divide by 2 so selection (hot) spot is in middle of line-- ¬•if mouseTemp < top of fld id activeField and round(mouseTemp/fldTextHeight) < 1 thendelete line one of fld id activeFieldend ifif (abs(round(mouseTemp/fldTextHeight))) < NumberOfLinesNTitles and ¬¨((round(mouseTemp/fldTextHeight))) >= 1 then-- delete line abs((round(mouseTemp/fldTextHeight))) of fld id activeFielddelete line ((lineVariable)+(theScroll))  of fld id activeFieldend ifif ((lineVariable)+(theScroll)) > NumberOfLinesNTitles then delete line NumberOfLinesNTitles of fld id activeField--set autoTab of fld id 174 to true-- This next line resets scan when Titles has been modifiedput 1 into xLnput the number of lines in fld id activeField into NumberOfLinesNTitlesset autoTab of fld id activeField to trueunlock Screenmapend ifend repeatset cursor to 130hide msghide fld id activeFieldcleanExit activeFieldend mapon mapAdd activeField, mouseTemp, fldTextHeight, mapText, lookUp, textHolder, lineVariable, theScrollglobal lineList, NumberOfLinesNTitles, VISIBLE, xLnput the number of lines in fld id activeField into lineListput "["&(the short name of fld id activeField)&"] Shift=Add  Opt=Go  Cmnd=Delete  Click=Exit" into msgif lineList  >= 100 thenplay  "harpsichord" tempo 400 "b4h#"put "There Can't be more than 100 Items in your Title List!" into msgput the seconds into Tmarkrepeat until the mouseClick or (the seconds - Tmark) > 3end repeatmapend ifif the number of this cd > 1 and fld id activeField = empty thenanswer "Enter an ITEM?" with "Cancel" or "Ok"if it = "" or it = "Cancel" thenif it = "Cancel" and fld id activeField = empty thencleanExit activeFieldend iflock screenmapend ifend ifset cursor to busy-- --repeat with counter = 0 to 30put line counter of fld ID 66 into testif offset("*",test) > 0 thenput (number of this cd-1)&")"&&test&return into mapTextexit repeatend ifend repeatif offset("*",test) = 0 then put (number of this cd-1)&")"&return into mapText-- ¬•add  abs(round(fldTextHeight/2)) to mouseTemp -- divide by 2 so selection (hot) spot is in middle of lineget the number of lines in fld id activeFieldif mouseTemp < top of fld id activeField and (round(mouseTemp/fldTextHeight)) < 1 thenput mapText before line one of fld id activeFieldend ifif abs(round(mouseTemp/fldTextHeight)) > it then put mapText before line it of fld id activeFieldif (abs(round(mouseTemp/fldTextHeight))) <= it and ¬¨(round(mouseTemp/fldTextHeight)) >= 1 thenput mapText before line ((lineVariable)+(theScroll)) of fld id activeFieldend ifif textHolder = empty thenput mapText into fld id activeFieldset autoTab of fld id activeField to true-- This next line resets scan when Titles has been modifiedput 1 into xLnend if--alertset autoTab of fld id activeField to true--put the number of lines in fld id activeField into lineList-- This next line resets scan when Titles has been modifiedput 1 into xLnset autoTab of fld id activeField to true----set cursor to 130map lineListend mapAddon cleanExit activeFieldglobal visiblehide fld id activeFieldhide msgif visible = 1 thenshow bg fld id 186put empty into visibleend ifunlock ScreenExit to HyperCardend cleanExit</script>
  879.     </part>
  880.     <part>
  881.         <id>150</id>
  882.         <type>button</type>
  883.         <visible> <true /> </visible>
  884.         <reserved5> 0 </reserved5>
  885.         <reserved4> 0 </reserved4>
  886.         <reserved3> 0 </reserved3>
  887.         <reserved2> 0 </reserved2>
  888.         <reserved1> 0 </reserved1>
  889.         <enabled> <true /> </enabled>
  890.         <rect>
  891.             <left>393</left>
  892.             <top>278</top>
  893.             <right>427</right>
  894.             <bottom>292</bottom>
  895.         </rect>
  896.         <style>roundrect</style>
  897.         <showName> <true /> </showName>
  898.         <highlight> <false /> </highlight>
  899.         <autoHighlight> <true /> </autoHighlight>
  900.         <sharedHighlight> <true /> </sharedHighlight>
  901.         <family>0</family>
  902.         <titleWidth>0</titleWidth>
  903.         <icon>0</icon>
  904.         <textAlign>center</textAlign>
  905.         <font>Chicago</font>
  906.         <textSize>12</textSize>
  907.         <textStyle>condense</textStyle>
  908.         <name>0</name>
  909.         <script>on mouseUpSetMarkBtns (the id of me), (the short name of me)end mouseUp</script>
  910.     </part>
  911.     <part>
  912.         <id>151</id>
  913.         <type>button</type>
  914.         <visible> <true /> </visible>
  915.         <reserved5> 0 </reserved5>
  916.         <reserved4> 0 </reserved4>
  917.         <reserved3> 0 </reserved3>
  918.         <reserved2> 0 </reserved2>
  919.         <reserved1> 0 </reserved1>
  920.         <enabled> <true /> </enabled>
  921.         <rect>
  922.             <left>429</left>
  923.             <top>278</top>
  924.             <right>465</right>
  925.             <bottom>292</bottom>
  926.         </rect>
  927.         <style>roundrect</style>
  928.         <showName> <true /> </showName>
  929.         <highlight> <false /> </highlight>
  930.         <autoHighlight> <true /> </autoHighlight>
  931.         <sharedHighlight> <true /> </sharedHighlight>
  932.         <family>0</family>
  933.         <titleWidth>0</titleWidth>
  934.         <icon>0</icon>
  935.         <textAlign>center</textAlign>
  936.         <font>Chicago</font>
  937.         <textSize>12</textSize>
  938.         <textStyle>condense</textStyle>
  939.         <name>0</name>
  940.         <script>on mouseUpSetMarkBtns (the id of me), (the short name of me)end mouseUp</script>
  941.     </part>
  942.     <part>
  943.         <id>156</id>
  944.         <type>button</type>
  945.         <visible> <true /> </visible>
  946.         <reserved5> 0 </reserved5>
  947.         <reserved4> 0 </reserved4>
  948.         <reserved3> 0 </reserved3>
  949.         <reserved2> 0 </reserved2>
  950.         <reserved1> 0 </reserved1>
  951.         <enabled> <true /> </enabled>
  952.         <rect>
  953.             <left>3338</left>
  954.             <top>260</top>
  955.             <right>3338</right>
  956.             <bottom>20299</bottom>
  957.         </rect>
  958.         <style>oval</style>
  959.         <showName> <false /> </showName>
  960.         <highlight> <false /> </highlight>
  961.         <autoHighlight> <true /> </autoHighlight>
  962.         <sharedHighlight> <true /> </sharedHighlight>
  963.         <family>13</family>
  964.         <titleWidth>20299</titleWidth>
  965.         <icon>3338</icon>
  966.         <textAlign>unknown</textAlign>
  967.         <font></font>
  968.         <textSize>3338</textSize>
  969.         <textStyle>outline</textStyle>
  970.         <textStyle>underline</textStyle>
  971.         <textStyle>bold</textStyle>
  972.         <name>
  973.  
  974. OK
  975.  
  976. OK
  977.  
  978. OK
  979.  
  980. OK
  981.  
  982. OK
  983.  
  984. OK
  985.  
  986. OK
  987.  
  988. OK
  989.  
  990. OK
  991.  
  992. OK
  993.  
  994. OK
  995.  
  996. OK
  997.  
  998. OK
  999.  
  1000. OK
  1001.  
  1002. OK
  1003.  
  1004. OK
  1005.  
  1006. OK
  1007.  
  1008. OK
  1009.  
  1010. OK
  1011.  
  1012. OK
  1013.  
  1014. OK
  1015.  
  1016. OK
  1017.  
  1018. OK
  1019.  
  1020. OK
  1021.  
  1022. OK
  1023.  
  1024. OK
  1025.  
  1026. OK
  1027.  
  1028. OK
  1029.  
  1030. OK
  1031.  
  1032. OK
  1033.  
  1034. OK
  1035.  
  1036. OK
  1037.  
  1038. OK
  1039.  
  1040. OK
  1041.  
  1042. OK
  1043.  
  1044. OK
  1045.  
  1046. OK
  1047.  
  1048. OK
  1049.  
  1050. OK
  1051.  
  1052. OK
  1053.  
  1054. OK
  1055.  
  1056. OK
  1057.  
  1058. OK
  1059.  
  1060. OK
  1061.  
  1062. OK
  1063.  
  1064. OK
  1065.  
  1066. OK
  1067.  
  1068. OK
  1069.  
  1070. OK
  1071.  
  1072. OK
  1073.  
  1074. OK
  1075.  
  1076. OK
  1077.  
  1078. OK
  1079.  
  1080. OK
  1081.  
  1082. OK
  1083.  
  1084. OK
  1085.  
  1086. OK
  1087.  
  1088. OK
  1089.  
  1090. OK
  1091.  
  1092. OK
  1093.  
  1094. OK
  1095.  
  1096. OK
  1097.  
  1098. OK
  1099.  
  1100. OK
  1101.  
  1102. OK
  1103.  
  1104. OK
  1105.  
  1106. OK
  1107.  
  1108. OK
  1109.  
  1110. OK
  1111.  
  1112. OK
  1113.  
  1114. OK
  1115.  
  1116. OK
  1117.  
  1118. OK
  1119.  
  1120. OK
  1121.  
  1122. OK
  1123.  
  1124. OK
  1125.  
  1126. OK
  1127.  
  1128. OK
  1129.  
  1130. OK
  1131.  
  1132. OK
  1133.  
  1134. OK
  1135.  
  1136. OK
  1137.  
  1138. OK
  1139.  
  1140. OK
  1141.  
  1142. OK
  1143.  
  1144. OK
  1145.  
  1146. OK
  1147.  
  1148. OK
  1149.  
  1150. OK
  1151.  
  1152. OK
  1153.  
  1154. OK
  1155.  
  1156. OK
  1157.  
  1158. OK
  1159.  
  1160. OK
  1161.  
  1162. OK
  1163.  
  1164. OK
  1165.  
  1166. OK
  1167.  
  1168. OK
  1169.  
  1170. OK
  1171.  
  1172. OK
  1173.  
  1174. OK
  1175.  
  1176. OK
  1177.  
  1178. OK
  1179.  
  1180. OK
  1181.  
  1182. OK
  1183.  
  1184. OK
  1185.  
  1186. OK
  1187.  
  1188. OK
  1189.  
  1190. OK
  1191.  
  1192. OK
  1193.  
  1194. OK
  1195.  
  1196. OK
  1197.  
  1198. OK
  1199. bleend ifshow fld id 177unlock screenif fld id 177 = empty then mapAddselect line lineNum of fld id 177repeat until the mouseClickput empty into vermosput (trunc((the mouseV/12))) into verMosput (ABS(vermos)) into Tempif temp-1 < 1 then select line 1 of fld id 177if temp-1 > 0 and temp-1 <= lineNum thenselect line  temp-1 of fld id 177PUT TEMP-1 INTO TEMPGLOBALend ifif temp-1 > lineNum thenselect line lineNum of fld id 177PUT LineNum INTO TEMPGLOBALend ifput the selectedText into lookUpif the optionKey is down thenput the selectedText into lookUpput word 2 to 30 of lookUp into findTexthide fld id 177set the rect of fld id 177 to 2,113,507,242hide msglock Screenget word 1 of lookUpdelete last char of itput it+1 into itgo to cd itfind word findText in fld id 66if the number of this card = 1 thenadd one to testOnego to next cdget word 1 of lookUpdelete last char of itput it+1 into itgo to cd itfind word findText in fld id 66unlock Screenif testOne > 1 thenhide msgcleanExitend ifexit to HyperCardend ifif the result <> empty thenunlock Screenplay "harpsichord" tempo 400 "b4h# d5h# a5q# "put "        Sorry could NOT find "&quote&findText&quote&"!" into msgput the seconds into Tmarkrepeat until the mouseClick or (the seconds - Tmark) > 4end repeatif visible = 1 thenshow bg fld id 186put empty into visibleend ifhide msgcleanExitend ifunlock Screenexit to HyperCardend ifunlock Screenif the shiftKey is down thenmapAddend ifif the commandKey is down thenanswer "Delete "&lookUp&"?" with "Yes" or "Cancel"if it is "Cancel" thenset lockScreen to truemapend ifdelete line TEMPGLOBAL of fld id 177set script of fld id 177 to fld id 177set autoTab of fld id 177 to truemapend ifend repeatset cursor to handhide msghide fld id 177put empty into fld id 177set the rect of fld id 177 to 2,113,507,242cleanExitend mapon mapAddglobal textHolder, LINELIST, TEMPGLOBAL, VISIBLEput the selectedText into textHolderput the number of lines in fld id 177 into lineListput the short name of fld id 177&" Sh(Add) Opt(Find) Comnd(Delete)" into msgif lineList  >= 20 thenplay "harpsichord" tempo 400 "b4h# d5h# a5q# "put "There Can't be more than 20 Items in Your Title Map!" into msgput the seconds into Tmarkrepeat until the mouseClick or (the seconds - Tmark) > 2end repeathide msgLOCK SCREENmapend ifif the number of this cd > 1 and fld id 177 = empty thenanswer "Enter an ITEM?" with "Cancel" or "Ok"if it = "" or it = "Cancel" thenif it = "Cancel" and fld id 177 = empty thencleanExitend iflock screenmapend ifend ifset cursor to busy----repeat with counter = 0 to 30put line counter of fld ID 66 into testif offset("*",test) > 0 thenput (number of this cd-1)&")"&&test&return into mapTextexit repeatend ifend repeatif textHolder = empty thenput mapText into fld id 177set the script of fld id 177 to fld id 177set autoTab of fld id 177 to trueelseput mapText before line TEMPGLOBAL  of fld id 177set the script of fld id 177 to fld id 177put the number of lines in fld id 177 into lineListset autoTab of fld id 177 to trueend if----set cursor to handmapend mapAddon qTitlesif the shiftKey is down then  play "harpsichord" tempo 400 "b4h# d5h# a5q# "global xLn, tempF, qLinesput empty into qLinesput empty into tempFput the script of fld id 177 into tempFput the number of lines in tempF into qLinesrepeat with counter = xLn to qLinesput line counter of tempF into lookUpput word 2 to 30 of lookUp into findTextget word 1 of lookUpdelete last char of itput it+1 into itgo to cd itfind word findText in fld id 66put xLn&"/"&qLines&&"Titles: Option(next Title) Click(Ends)" into msgput xln+1 into xLnif the result <> empty thenunlock Screenplay "harpsichord" tempo 400 "b4h# d5h# a5q# "put "        Sorry could NOT find "&quote&findText&quote&"!" into msgput the seconds into Tmarkrepeat until the mouseClick or (the seconds - Tmark) > 4end repeatend ifunlock Screenplay "harpsichord" tempo 400 "b4h# d5h# a5q# "wait until the optionKey is down or the mouse is downif the Mouse is Down thenhide msgexit to HyperCardend ifend repeathide msgput 1 into xLnexit to HyperCardend qTitleson cleanExitglobal visiblehide fld id 177put empty into fld id 177hide msgset the rect of fld id 177 to 2,113,507,242if visible = 1 thenshow bg fld id 186put empty into visibleend ifunlock ScreenExit to HyperCardend cleanExit</name>
  1200.         <script>√∑</script>
  1201.     </part>
  1202.     <part>
  1203.         <id>159</id>
  1204.         <type>button</type>
  1205.         <visible> <true /> </visible>
  1206.         <reserved5> 0 </reserved5>
  1207.         <reserved4> 0 </reserved4>
  1208.         <reserved3> 0 </reserved3>
  1209.         <reserved2> 0 </reserved2>
  1210.         <reserved1> 0 </reserved1>
  1211.         <enabled> <true /> </enabled>
  1212.         <rect>
  1213.             <left>233</left>
  1214.             <top>298</top>
  1215.             <right>252</right>
  1216.             <bottom>322</bottom>
  1217.         </rect>
  1218.         <style>transparent</style>
  1219.         <showName> <false /> </showName>
  1220.         <highlight> <false /> </highlight>
  1221.         <autoHighlight> <true /> </autoHighlight>
  1222.         <sharedHighlight> <true /> </sharedHighlight>
  1223.         <family>0</family>
  1224.         <titleWidth>0</titleWidth>
  1225.         <icon>1014</icon>
  1226.         <textAlign>center</textAlign>
  1227.         <font>Chicago</font>
  1228.         <textSize>12</textSize>
  1229.         <textStyle>plain</textStyle>
  1230.         <name>Prev</name>
  1231.         <script>on mouseUpif the number of this cd = 2 thenvisual effect dissolve very fastgo to last cdexit to HyperCardend ifvisual effect dissolve very fastgo to prev cdend mouseUp</script>
  1232.     </part>
  1233.     <part>
  1234.         <id>160</id>
  1235.         <type>button</type>
  1236.         <visible> <true /> </visible>
  1237.         <reserved5> 0 </reserved5>
  1238.         <reserved4> 0 </reserved4>
  1239.         <reserved3> 0 </reserved3>
  1240.         <reserved2> 0 </reserved2>
  1241.         <reserved1> 0 </reserved1>
  1242.         <enabled> <true /> </enabled>
  1243.         <rect>
  1244.             <left>252</left>
  1245.             <top>298</top>
  1246.             <right>271</right>
  1247.             <bottom>322</bottom>
  1248.         </rect>
  1249.         <style>transparent</style>
  1250.         <showName> <false /> </showName>
  1251.         <highlight> <false /> </highlight>
  1252.         <autoHighlight> <true /> </autoHighlight>
  1253.         <sharedHighlight> <true /> </sharedHighlight>
  1254.         <family>0</family>
  1255.         <titleWidth>0</titleWidth>
  1256.         <icon>1013</icon>
  1257.         <textAlign>center</textAlign>
  1258.         <font>Chicago</font>
  1259.         <textSize>12</textSize>
  1260.         <textStyle>plain</textStyle>
  1261.         <name>Next</name>
  1262.         <script>on mouseUpget the number of cdsif the number of this cd = it thenvisual effect dissolve very fastgo to cd 2exit to HyperCardend ifvisual effect dissolve very fastgo to next cdend mouseUp</script>
  1263.     </part>
  1264.     <part>
  1265.         <id>200</id>
  1266.         <type>button</type>
  1267.         <visible> <true /> </visible>
  1268.         <reserved5> 0 </reserved5>
  1269.         <reserved4> 0 </reserved4>
  1270.         <reserved3> 0 </reserved3>
  1271.         <reserved2> 0 </reserved2>
  1272.         <reserved1> 0 </reserved1>
  1273.         <enabled> <true /> </enabled>
  1274.         <rect>
  1275.             <left>466</left>
  1276.             <top>295</top>
  1277.             <right>502</right>
  1278.             <bottom>331</bottom>
  1279.         </rect>
  1280.         <style>transparent</style>
  1281.         <showName> <false /> </showName>
  1282.         <highlight> <false /> </highlight>
  1283.         <autoHighlight> <true /> </autoHighlight>
  1284.         <sharedHighlight> <true /> </sharedHighlight>
  1285.         <family>0</family>
  1286.         <titleWidth>0</titleWidth>
  1287.         <icon>25936</icon>
  1288.         <textAlign>center</textAlign>
  1289.         <font>Chicago</font>
  1290.         <textSize>12</textSize>
  1291.         <textStyle>plain</textStyle>
  1292.         <name>P</name>
  1293.         <script>on mouseUpput 178 into activeFieldunlock screenset the loc of msg to 19,303put empty into xtestOneset the cursor to 131show fld id activeField-- put values in variablesput the top of fld id activeField into FldTopput the textHeight of fld id activeField into textHeightput the height of fld id activeField into FldHeightput the number of lines in fld id activeField into NumberOfLinesNTitlesrepeat until the mouseClick--  multiply by 2 so selection (hot) spot is in middle of lineput (round(the mouseV-(FldTop))+(abs(round(textHeight*1)))) ¬¨into mouseTemp-- put abs(round(mouseTemp/textHeight)) into lineVariableput (round(mouseTemp/textHeight)) into lineVariable-- the next line only if lines are added and deleted-- put the number of lines in fld id activeField into NumberOfLinesNTitles-- the next line is critical to selectScrolling...you must-- subtract 1 from textHeight to get proper valueput round((the scroll of fld id activeField)/(textHeight-0)) ¬¨into theScroll-- Select last line codeif (lineVariable+theScroll) > NumberOfLinesNTitles then ¬¨select line NumberOfLinesNTitles of fld id activeField-- scroll up & select codeif the mouseV < (FldTop) and lineVariable < lineVariable+theScroll ¬¨and lineVariable ‚↠0  thenselect line (round(theScroll/2)) of fld id activeFieldend if-- select line X codeif the mouseV > FldTop and lineVariable+(theScroll) > 0 and ¬¨lineVariable+(theScroll) <= NumberOfLinesNTitles ¬¨then select line ((lineVariable)+(theScroll)) of fld id activeField-- select line 1 codeif the mouseV < FldTop and lineVariable <= 1 ¬¨then select line 1 of fld id activeFieldput the selectedText into lookUpput "   Opt=Go  Click=Exit  --  XStack "&word one of lookUp&" on Page "&last word of lookUpif the  optionKey is down thenset lockMessages to truehide fld id activeFieldhide msgvisual effect zoom opengo to cd (the last word of lookUp)+1openCardexit to HyperCardend if---end repeathide msghide fld id activeFieldexit to HyperCardend mouseUp</script>
  1294.     </part>
  1295.     <part>
  1296.         <id>197</id>
  1297.         <type>button</type>
  1298.         <visible> <true /> </visible>
  1299.         <reserved5> 0 </reserved5>
  1300.         <reserved4> 0 </reserved4>
  1301.         <reserved3> 0 </reserved3>
  1302.         <reserved2> 0 </reserved2>
  1303.         <reserved1> 0 </reserved1>
  1304.         <enabled> <true /> </enabled>
  1305.         <rect>
  1306.             <left>13</left>
  1307.             <top>266</top>
  1308.             <right>42</right>
  1309.             <bottom>294</bottom>
  1310.         </rect>
  1311.         <style>roundrect</style>
  1312.         <showName> <false /> </showName>
  1313.         <highlight> <false /> </highlight>
  1314.         <autoHighlight> <false /> </autoHighlight>
  1315.         <sharedHighlight> <true /> </sharedHighlight>
  1316.         <family>0</family>
  1317.         <titleWidth>0</titleWidth>
  1318.         <icon>29390</icon>
  1319.         <textAlign>center</textAlign>
  1320.         <font>Chicago</font>
  1321.         <textSize>12</textSize>
  1322.         <textStyle>plain</textStyle>
  1323.         <name></name>
  1324.         <script>on mouseUpanswer "EXIT from WALDO?" with "DeskTop" or "Home" or "No"if it is "No" then Exit to HyperCardif it is "DeskTop" thendoMenu "Quit HyperCard"end ifgo homeend mouseUp</script>
  1325.     </part>
  1326.     <part>
  1327.         <id>191</id>
  1328.         <type>button</type>
  1329.         <visible> <true /> </visible>
  1330.         <reserved5> 0 </reserved5>
  1331.         <reserved4> 0 </reserved4>
  1332.         <reserved3> 0 </reserved3>
  1333.         <reserved2> 0 </reserved2>
  1334.         <reserved1> 0 </reserved1>
  1335.         <enabled> <true /> </enabled>
  1336.         <rect>
  1337.             <left>466</left>
  1338.             <top>295</top>
  1339.             <right>502</right>
  1340.             <bottom>331</bottom>
  1341.         </rect>
  1342.         <style>transparent</style>
  1343.         <showName> <false /> </showName>
  1344.         <highlight> <false /> </highlight>
  1345.         <autoHighlight> <true /> </autoHighlight>
  1346.         <sharedHighlight> <true /> </sharedHighlight>
  1347.         <family>0</family>
  1348.         <titleWidth>0</titleWidth>
  1349.         <icon>16768</icon>
  1350.         <textAlign>center</textAlign>
  1351.         <font>Chicago</font>
  1352.         <textSize>12</textSize>
  1353.         <textStyle>plain</textStyle>
  1354.         <name>XGRAY</name>
  1355.         <script>on mouseUpplay "harpsichord" tempo 400 "b4h#"end mouseUp</script>
  1356.     </part>
  1357.     <part>
  1358.         <id>223</id>
  1359.         <type>button</type>
  1360.         <visible> <true /> </visible>
  1361.         <reserved5> 0 </reserved5>
  1362.         <reserved4> 0 </reserved4>
  1363.         <reserved3> 0 </reserved3>
  1364.         <reserved2> 0 </reserved2>
  1365.         <reserved1> 0 </reserved1>
  1366.         <enabled> <true /> </enabled>
  1367.         <rect>
  1368.             <left>131</left>
  1369.             <top>300</top>
  1370.             <right>153</right>
  1371.             <bottom>330</bottom>
  1372.         </rect>
  1373.         <style>transparent</style>
  1374.         <showName> <false /> </showName>
  1375.         <highlight> <false /> </highlight>
  1376.         <autoHighlight> <true /> </autoHighlight>
  1377.         <sharedHighlight> <true /> </sharedHighlight>
  1378.         <family>0</family>
  1379.         <titleWidth>0</titleWidth>
  1380.         <icon>11503</icon>
  1381.         <textAlign>center</textAlign>
  1382.         <font>Chicago</font>
  1383.         <textSize>12</textSize>
  1384.         <textStyle>plain</textStyle>
  1385.         <name></name>
  1386.         <script>on mouseUpif fld id 177 = empty thenplay  "harpsichord" tempo 400 "b4h#"exit to HyperCardend ifhide msgset the loc of msg to 19,303answer "Do you want to "&quote&"RE-Number"&quote&" the Title List?" with "Yes" or "Cancel"if it is "Cancel" then exit to HyperCardscanTend mouseUpon scanTpush cdset the loc of msg to 19,303set the cursor to watchglobal tempF, qLinesput empty into qLinesput empty into tempFput fld id 177 into tempFput the number of lines in tempF into qLinesrepeat with counter = 1 to qLineslock screenput line counter of tempF into lookUpput word 2 to 30 of lookUp into findTextfind word findText in fld id 66if the result <> empty thenput "0)" into word one of line counter of tempFplay "Flute"set autoTab of fld id 174 to truenext repeatend ifget word one of line counter of tempFdelete the last char of itif (it) ‚↠(the number of this cd-1) thenplay "Flute"set autoTab of fld id 174 to trueput (the number of this cd-1)&")" into word one of line counter of tempFend ifset the cursor to watchend repeatput tempF INTO fld id 177alerthide msgpop cdexit to HyperCardend scanT</script>
  1387.     </part>
  1388.     <part>
  1389.         <id>198</id>
  1390.         <type>button</type>
  1391.         <visible> <true /> </visible>
  1392.         <reserved5> 0 </reserved5>
  1393.         <reserved4> 0 </reserved4>
  1394.         <reserved3> 0 </reserved3>
  1395.         <reserved2> 0 </reserved2>
  1396.         <reserved1> 0 </reserved1>
  1397.         <enabled> <true /> </enabled>
  1398.         <rect>
  1399.             <left>130</left>
  1400.             <top>264</top>
  1401.             <right>149</right>
  1402.             <bottom>300</bottom>
  1403.         </rect>
  1404.         <style>transparent</style>
  1405.         <showName> <false /> </showName>
  1406.         <highlight> <false /> </highlight>
  1407.         <autoHighlight> <true /> </autoHighlight>
  1408.         <sharedHighlight> <true /> </sharedHighlight>
  1409.         <family>0</family>
  1410.         <titleWidth>0</titleWidth>
  1411.         <icon>10021</icon>
  1412.         <textAlign>center</textAlign>
  1413.         <font>Chicago</font>
  1414.         <textSize>12</textSize>
  1415.         <textStyle>plain</textStyle>
  1416.         <name>ScanTitles</name>
  1417.         <script>on mouseUpif fld id 177 = empty thenplay  "harpsichord" tempo 400 "b4h#"exit to HyperCardend ifhide msgset the loc of msg to 19,303if the commandKey is down then resetScanscanTend mouseUpon scanTset the loc of msg to 19,303set the cursor to noneglobal xLn, tempF, qLinesput empty into qLinesput empty into tempFput fld id 177 into tempFput the number of lines in tempF into qLinesif xLn > qLines thenput one into xLnplay  "harpsichord" tempo 400 "b4h#"scanTend ifset the cursor to 131put xLn&"/"&qLines&&"["&(the short name of fld id 177)&"] Opt=Go  Cmnd=List  Click=Exit" into msgrepeat with counter = xLn to qLinesif the mouseClick thenhide msgexit to HyperCardend ifput xLn&"/"&qLines&&"["&(the short name of fld id 177)&"] Opt=Go  Cmnd=List  Click=Exit" into msgrepeatif xLn > qLines thenput one into xLnplay  "harpsichord" tempo 400 "b4h#"hide msgexit to HyperCardend ifif the optionKey is down thenput line counter of tempF into lookUpput word 2 to 30 of lookUp into findTextget word 1 of lookUpdelete last char of itif it is not a number thenset cursor to noneplay  "harpsichord" tempo 400 "b4h#"put "                          This is not a Proper Title List!"wait 3 secshide msgexit to HyperCardend ifput it+1 into itvisual effect zoom opengo to cd itset the cursor to 131if the number of this cd ‚↠it thenplay  "harpsichord" tempo 400 "b4h#"put "There is NO "&quote&"Page "&(it+1)&quotewait 3 sechide msgexit to HyperCardend if-- find word findText in fld id 66if findtext ‚↠empty then find word findText in fld id 66if the result <> empty thenunlock Screenplay  "harpsichord" tempo 400 "b4h#"put "        Sorry could NOT find "&quote&"the Title"&quote&" on page "&(the number of this card -1)&"!" into msgput the seconds into Tmarkwait 3 sechide msgexit to HyperCardend ifput xLn+1 into xLnif xLn > qLines thenplay  "harpsichord" tempo 400 "b4h#"put one into xLnscanTend ifput xLn&"/"&qLines&&"["&(the short name of fld id 177)&"] Opt=Go  Cmnd=List  Click=Exit" into msgalertexit repeatend ifif the commandKey is down thenmap GoButtonend ifif the mouseClick thenhide msgexit to HyperCardend ifset the cursor to 131end repeatend repeathide msgexit to HyperCardend scanTon mapGLOBAL TempGlobal, visible, tempF, xLn, GoButtonset the loc of msg to 19,303put 177 into activeFieldput the number of lines in fld id activeField into lineListif visible = 1 then show bg fld id 186put empty into visibleput the top of fld id activeField into fldHeightput The textHeight of fld id activeField into fldTextHeightput the number of lines in fld id activeField into NumberOfLinesNTitlesunlock screenset the loc of msg to 19,303put empty into xtestOneset the cursor to 131show fld id activeField-- put values in variablesput the top of fld id activeField into FldTopput the textHeight of fld id activeField into textHeightput the height of fld id activeField into FldHeightput the number of lines in fld id activeField into NumberOfLinesNTitlesrepeat until the mouseClick--  multiply by 2 so selection (hot) spot is in middle of lineput (round(the mouseV-(FldTop))+(abs(round(textHeight*1)))) into mouseTemp-- put abs(round(mouseTemp/textHeight)) into lineVariableput (round(mouseTemp/textHeight)) into lineVariable-- the next line only if lines are added and deletedput the number of lines in fld id activeField into NumberOfLinesNTitles-- the next line is critical to selectScrolling...you must-- subtract 1 from textHeight to get proper valueput round((the scroll of fld id activeField)/(textHeight-1)) into theScroll-- Select last line codeif (lineVariable+theScroll) > NumberOfLinesNTitles thenselect line NumberOfLinesNTitles of fld id activeFieldput NumberOfLinesNTitles into resetLineput NumberOfLinesNTitles&"/"&NumberOfLinesNTitles&" ["&xLn&"] Shift=Select  Opt=ReSet  Cmnd=Delete  Click=Exit"end if-- scroll up & select codeif the mouseV < (FldTop) and lineVariable < lineVariable+theScroll ¬¨and lineVariable ‚↠0  thenselect line (round(theScroll/2)) of fld id activeFieldput (round(theScroll/2)) into resetLineput (round(theScroll/2))&"/"&NumberOfLinesNTitles&" ["&xLn&"] Shift=Select  Opt=ReSet  Cmnd=Delete  Click=Exit"end if-- select line X codeif the mouseV > FldTop and lineVariable+(theScroll) > 0 and ¬¨lineVariable+(theScroll) <= NumberOfLinesNTitles ¬¨thenselect line ((lineVariable)+(theScroll)) of fld id activeFieldput ((lineVariable)+(theScroll)) into resetLineput ((lineVariable)+(theScroll))&"/"&NumberOfLinesNTitles&" ["&xLn&"] Shift=Select  Opt=ReSet  Cmnd=Delete  Click=Exit"end if-- select line 1 codeif the mouseV < FldTop and lineVariable <= 1 thenselect line 1 of fld id activeFieldput one into resetLineput one&"/"&NumberOfLinesNTitles&" ["&xLn&"] Shift=Select  Opt=ReSet  Cmnd=Delete  Click=Exit"end ifput the selectedText into lookUpunlock screenif the optionKey is down thenput resetLine into xLnalertend ifunlock Screenif the shiftKey is down thenif the number of lines in fld id 177 = 1 thenbeepnext repeatend iflock screenput lookUp into lineSelectedput line resetLine&RETURN of GoButton into selectedLineHolderdelete line resetLine of fld id activeFieldset autoTab of fld id activeField to trueHyperButtonMod selectedLineHolder, resetLine,lineSelected, activeFieldend ifif the commandKey is down thenif the number of lines in fld id 177 = 1 thenbeepnext repeatend ifanswer "Delete "&lookUp&"?" with "Yes" or "Cancel"if it is "Cancel" thenlock screenmapend ifadd  round(fldTextHeight/2) to mouseTemp -- divide by 2 so selection (hot) spot is in middle of line-- ¬•if mouseTemp < top of fld id activeField and round(mouseTemp/fldTextHeight) < 1 thendelete line one of fld id activeFieldend ifif (abs(round(mouseTemp/fldTextHeight))) < NumberOfLinesNTitles and ¬¨((round(mouseTemp/fldTextHeight))) >= 1 then-- delete line abs((round(mouseTemp/fldTextHeight))) of fld id activeFielddelete line ((lineVariable)+(theScroll))  of fld id activeFieldend ifif ((lineVariable)+(theScroll)) > NumberOfLinesNTitles then delete line NumberOfLinesNTitles of fld id activeField--set autoTab of fld id activeField to true-- This next line resets scan when Titles has been modifiedput 1 into xLnput the number of lines in fld id activeField into NumberOfLinesNTitlesset autoTab of fld id activeField to trueunlock Screenmapend ifend repeathide msghide fld id activeFieldscanTend mapon HyperButtonMod selectedLineHolder, resetLine, lineSelected, activeFieldunlock screenset the loc of msg to 19,303put empty into xtestOneset the cursor to 131show fld id activeField-- put values in variablesput the top of fld id activeField into FldTopput the textHeight of fld id activeField into textHeightput the height of fld id activeField into FldHeightput the number of lines in fld id activeField into NumberOfLinesNTitlesrepeat until the mouseClick--  multiply by 2 so selection (hot) spot is in middle of lineput (round(the mouseV-(FldTop))+(abs(round(textHeight*1)))) ¬¨into mouseTemp-- put abs(round(mouseTemp/textHeight)) into lineVariableput (round(mouseTemp/textHeight)) into lineVariable-- the next line only if lines are added and deleted-- put the number of lines in fld id activeField into NumberOfLinesNTitles-- the next line is critical to selectScrolling...you must-- subtract 1 from textHeight to get proper valueput round((the scroll of fld id activeField)/(textHeight-1)) ¬¨into theScroll-- Select last line codeif (lineVariable+theScroll) > NumberOfLinesNTitles thenselect line NumberOfLinesNTitles of fld id activeFieldput NumberOfLinesNTitles into putBeforeLineput NumberOfLinesNTitles&"/"&NumberOfLinesNTitles&" Shift=Insert  Click=Exit"&&lineSelectedend if-- scroll up & select codeif the mouseV < (FldTop) and lineVariable < lineVariable+theScroll ¬¨and lineVariable ‚↠0  thenselect line (round(theScroll/2)) of fld id activeFieldput (round(theScroll/2)) into putBeforeLineput (round(theScroll/2))&"/"&NumberOfLinesNTitles&" Shift=Insert  Click=Exit"&&lineSelectedend if-- select line X codeif the mouseV > FldTop and lineVariable+(theScroll) > 0 and ¬¨lineVariable+(theScroll) <= NumberOfLinesNTitles ¬¨thenselect line ((lineVariable)+(theScroll)) of fld id activeFieldput ((lineVariable)+(theScroll)) into putBeforeLineput ((lineVariable)+(theScroll))&"/"&NumberOfLinesNTitles&" Shift=Insert  Click=Exit"&&lineSelectedend if-- select line 1 codeif the mouseV < FldTop and lineVariable <= 1 thenselect line 1 of fld id activeFieldput one into putBeforeLineput one&"/"&NumberOfLinesNTitles&" Shift=Insert  Click=Exit"&&lineSelectedend ifput the selectedText into lookUpif the shiftKey is down thenput lineSelected&RETURN before line putBeforeLine of fld id activeField-- exit repeatmapend if---end repeatput lineSelected&RETURN before line resetLine of fld id activeFieldmap-- exit to HyperCardend HyperButtonMod</script>
  1418.     </part>
  1419.     <part>
  1420.         <id>234</id>
  1421.         <type>button</type>
  1422.         <visible> <true /> </visible>
  1423.         <reserved5> 0 </reserved5>
  1424.         <reserved4> 0 </reserved4>
  1425.         <reserved3> 0 </reserved3>
  1426.         <reserved2> 0 </reserved2>
  1427.         <reserved1> 0 </reserved1>
  1428.         <enabled> <true /> </enabled>
  1429.         <rect>
  1430.             <left>191</left>
  1431.             <top>262</top>
  1432.             <right>226</right>
  1433.             <bottom>295</bottom>
  1434.         </rect>
  1435.         <style>transparent</style>
  1436.         <showName> <false /> </showName>
  1437.         <highlight> <false /> </highlight>
  1438.         <autoHighlight> <true /> </autoHighlight>
  1439.         <sharedHighlight> <true /> </sharedHighlight>
  1440.         <family>0</family>
  1441.         <titleWidth>0</titleWidth>
  1442.         <icon>31438</icon>
  1443.         <textAlign>center</textAlign>
  1444.         <font>Chicago</font>
  1445.         <textSize>12</textSize>
  1446.         <textStyle>plain</textStyle>
  1447.         <name>Page Button</name>
  1448.         <script>on mouseDownhide msgset the loc of msg to 19,303show fld id 174set the cursor to watchset cursor to 132lookCend mouseDownon lineAddset the cursor to 132global textHolderget the number of lines in fld id 174put it into lineListif lineList  >= 50 thenalertput "There Can't be more than 50 Items in your List!" into msgput the seconds into Tmarkrepeat until the mouseClick or (the seconds - Tmark) > 2end repeatlookCend ifput the short name of fld id 174 into fNput the number of lines in fld id 174 into fLput "["&fn&"]"&" Shift=Add  Opt=Set Btns  Cmnd=Delete  Click=Exit" into msganswer "Sort this List or Add an Item?" with "Cancel" or "Sort" or "Add"if it is "Cancel" thenhide fld id 174hide msgexit to HyperCardend ifif it is "Sort" thensort fld id 174set the autoTab of fld id 174 to truelookCend ifask "Enter an ITEM?"if it = "" and fL ‚↠0 thenlookCend ifif it = "" and fL = 0 thenhide msghide bg fld id 174exit to HyperCardend ifrepeat with counter = 1 to lineListif offset(it,line counter of fld id 174 ) > 0 thenif (line counter of fld id 174 ) = it thenplay "harpsichord" tempo 400 "b4h# d5h# a5q#"wait until the sound is "done"put QUOTE&it&QUOTE&" is in this List!‚ĶClick to Continue." into msgrepeat until the mouseClickmouserend repeatlineAddelse exit repeatend ifend repeat--------if the length of it > 36 thenplay  "harpsichord" tempo 400 "b4h#"put "            Items may not be longer than 36 characters!" into msgwait 3 sechide msglineAddend ifglobal lineNumrepeat with counter = 1 to lineListput counter into lineNumif textHolder is (line counter of fld id 174) thenput it&return before line counter of fld id 174set the autoTab of fld id 174 to trueexit repeatend ifend repeatif (fld id 174 ) = empty thenput it&return into fld id 174set autoTab of fld id 174 to trueend iflookCend lineAddon lookCput empty into lookedAtput empty into retryOneput empty into partWordset cursor to 132global holderC, lineList, lineNum, lineBA, buttonD,testOne, lineNumglobal textHolder, fl, lookUp-----put 174 into activeFieldput the number of lines in fld id activeField into lineListif visible = 1 then show bg fld id 186put empty into visibleshow fld id activeFieldif fld id 174 = empty then lineAdd -- activeFieldput the top of fld id activeField into fldHeightput The textHeight of fld id activeField into fldTextHeightput the number of lines in fld id activeField into NumberOfLinesNTitlesunlock screenset the loc of msg to 19,303put empty into xtestOne-- put values in variablesput the top of fld id activeField into FldTopput the textHeight of fld id activeField into textHeightput the height of fld id activeField into FldHeightput the number of lines in fld id activeField into NumberOfLinesNTitlesrepeat until the mouseClick--  multiply by 2 so selection (hot) spot is in middle of lineput (round(the mouseV-(FldTop))+(abs(round(textHeight*.5)))) into mouseTemp-- put abs(round(mouseTemp/textHeight)) into lineVariableput (round(mouseTemp/textHeight)) into lineVariable-- the next line only if lines are added and deletedput the number of lines in fld id activeField into NumberOfLinesNTitles-- the next line is critical to selectScrolling...you must-- subtract 1 from textHeight to get proper valueput round((the scroll of fld id activeField)/(textHeight-0)) into theScroll-- Select last line codeif (lineVariable+theScroll) > NumberOfLinesNTitles thenselect line NumberOfLinesNTitles of fld id activeFieldput NumberOfLinesNTitles into resetLineput NumberOfLinesNTitles&"/"&NumberOfLinesNTitles&" ["&lookUp&"]"&&" Shift=Add  Opt=Set Btns  Cmnd=Delete  Click=Exit"end if-- scroll up & select codeif the mouseV < (FldTop) and lineVariable < lineVariable+theScroll ¬¨and lineVariable ‚↠0  thenselect line (round(theScroll/2)) of fld id activeFieldput (round(theScroll/2)) into resetLineput (round(theScroll/2))&"/"&NumberOfLinesNTitles&" ["&lookUp&"]"&&" Shift=Add  Opt=Set Btns  Cmnd=Delete  Click=Exit"end if-- select line X codeif the mouseV > FldTop and lineVariable+(theScroll) > 0 and ¬¨lineVariable+(theScroll) <= NumberOfLinesNTitles ¬¨thenselect line ((lineVariable)+(theScroll)) of fld id activeFieldput ((lineVariable)+(theScroll)) into resetLineput ((lineVariable)+(theScroll))&"/"&NumberOfLinesNTitles&" ["&lookUp&"]"&&" Shift=Add  Opt=Set Btns  Cmnd=Delete  Click=Exit"end if-- select line 1 codeif the mouseV < FldTop and lineVariable <= 1 thenselect line 1 of fld id activeFieldput one into resetLineput one&"/"&NumberOfLinesNTitles&" ["&lookUp&"]"&&" Shift=Add  Opt=Set Btns  Cmnd=Delete  Click=Exit" into msgend if-- --put the selectedText into textHolder-------if the optionKey is down thenanswer "Set Page Buttons with "&QUOTE&the selectedText&QUOTE&"?"&RETURN&"Part Word Matches or Whole Word Matches" with ¬¨"Part" or "Whole" or "Cancel"if it = "Cancel" thenlookCend ifif it = "Part" then put "Part Word Matches"&RETURN into PartWordset lockMessages to trueput the selectedText into lookUphide fld id 174hide msgSetButtons lookUp, partWordend ifif the commandKey is down thenput "["&fn&"]"&" Shift=Add  Opt=Set Btns  Cmnd=Delete  Click=Exit" into msganswer "Delete "&QUOTE&textHolder&QUOTE&"?" with "Yes" or "Cancel"if it is "Cancel" thenlookCend ifrepeat with counter = 1 to lineListput counter into lineNumif  textHolder IS¬¨(line counter of fld id 174 ) thendelete line counter of fld id 174set autoTab of fld id 174 to trueexit repeatend ifend repeatlookCend ifif the shiftKey is down thenlineAddend ifend repeathide msgcleanlyExitend lookCon cleanlyExithide fld id 174unlock ScreenExit to HyperCardend cleanlyExiton SetButtons lookUp, partWordput  lookUp into  cd fld "markGlobal" of cd 1hide fld id 174hide msgput the short id of this cd into markCardif lookUp = empty then exit to HyperCard -- ¬•set the cursor to watchlock Screenrepeat with counter = 142 to 146set the name of bg btn id counter to 0end repeatif partWord ‚↠empty then find lookUp IN FLD ID 66elsefind word lookUp IN FLD ID 66end ifif the result <> empty then cleanExitget the number of this cdif it is one thenadd one to retryOnego to next cdfind word lookUpget the number of this cdend ifif the result <> empty then cleanExitif it = 1 then add 1 to itput it&", " before lookedAtif it = 1 then add 1 to itput it into r142Cardif it > 1 thensubtract one from itend ifput it into n142Cardset name of bg btn id 142 to n142Cardgo to next cdif partWord ‚↠empty then find lookUp IN FLD ID 66elsefind word lookUp IN FLD ID 66end ifget the number of this cdif it is one thenif retryOne = 1 thengo to next cdgo to cd id markcardopenCardexit to HyperCardend ifadd one to retryOnego to next cdfind word lookUpget the number of this cdend ifif the result <> empty then cleanExitif offset(it,lookedAT) > 0 thenput the number of items in lookedAt into itNumsrepeat with counter = 1 to itNumsif it =  item itNums of lookedAt thengo to cd id markcardopenCardexit to HyperCardend ifend repeatend ifput it&", " before lookedAtput it into r143Cardsubtract one from itput it into n143Cardset name of bg btn id 143 to n143Cardgo to next cdif partWord ‚↠empty then find lookUp IN FLD ID 66elsefind word lookUp IN FLD ID 66end ifget the number of this cdif it is one thenif retryOne = 1 thengo to next cdgo to cd id markcardopenCardexit to HyperCardend ifadd one to retryOnego to next cdfind word lookUpget the number of this cdend ifif offset(it,lookedAT) > 0 thenput the number of items in lookedAt into itNumsrepeat with counter = 1 to itNumsif it = item itNums of lookedAt thengo to cd id markcardopenCardexit to HyperCardend ifend repeatend ifput it&", " before lookedAtput it into r144Cardsubtract one from itput it into n144Cardset name of bg btn id 144 to n144Cardgo to next cdif partWord ‚↠empty then find lookUp IN FLD ID 66elsefind word lookUp IN FLD ID 66end ifget the number of this cdif it is one thenif retryOne = 1 thengo to next cdgo to cd id markcardopenCardexit to HyperCardend ifadd one to retryOnego to next cdfind word lookUpget the number of this cdend ifif offset(it,lookedAT) > 0 thenput the number of items in lookedAt into itNumsrepeat with counter = 1 to itNumsif it = item itNums of lookedAt thengo to cd id markcardopenCardexit to HyperCardend ifend repeatend ifput it&", " before lookedAtput it into r145Cardsubtract one from itput it into n145Cardset name of bg btn id 145 to n145Cardgo to next cdif partWord ‚↠empty then find lookUp IN FLD ID 66elsefind word lookUp IN FLD ID 66end ifget the number of this cdif it is one thenif retryOne = 1 thengo to next cdgo to cd id markcardopenCardexit to HyperCardend ifadd one to retryOnego to next cdfind word lookUpget the number of this cdend ifif offset(it,lookedAT) > 0 thenput the number of items in lookedAt into itNumsrepeat with counter = 1 to itNumsif it = item itNums of lookedAt thengo to cd id markcardopenCardexit to HyperCardend ifend repeatend ifput it into r146Cardsubtract one from itput it into n146Cardset name of bkgnd btn id 146 to n146CardcleanExitend SetButtonson cleanExitunlock screenhide msgopenCardexit to HyperCardend cleanExit</script>
  1449.     </part>
  1450.     <part>
  1451.         <id>230</id>
  1452.         <type>button</type>
  1453.         <visible> <true /> </visible>
  1454.         <reserved5> 0 </reserved5>
  1455.         <reserved4> 0 </reserved4>
  1456.         <reserved3> 0 </reserved3>
  1457.         <reserved2> 0 </reserved2>
  1458.         <reserved1> 0 </reserved1>
  1459.         <enabled> <true /> </enabled>
  1460.         <rect>
  1461.             <left>92</left>
  1462.             <top>267</top>
  1463.             <right>126</right>
  1464.             <bottom>301</bottom>
  1465.         </rect>
  1466.         <style>transparent</style>
  1467.         <showName> <false /> </showName>
  1468.         <highlight> <false /> </highlight>
  1469.         <autoHighlight> <true /> </autoHighlight>
  1470.         <sharedHighlight> <true /> </sharedHighlight>
  1471.         <family>0</family>
  1472.         <titleWidth>0</titleWidth>
  1473.         <icon>13640</icon>
  1474.         <textAlign>center</textAlign>
  1475.         <font>Chicago</font>
  1476.         <textSize>12</textSize>
  1477.         <textStyle>plain</textStyle>
  1478.         <name> </name>
  1479.         <script>on mouseDownhide msgset the loc of msg to 19,303put the top of fld id 231 into fldHeightput The textHeight of fld id 231 into fldTextHeightshow fld id 231repeat until the mouse is upget the mouseVsubtract fldHeight from itadd  abs(round(fldTextHeight/2)) to it -- divide by 2 so selection (hot) spot is in middle of lineif the mouseV < top of fld id 231 or the mouseV > bottom of fld id 231  or ¬¨the mouseH < the left of fld id 231 or the mouseH > the Right of fld id 231 thenselect line 6 of fld id 231elseselect line abs(round(it/fldTextHeight)) of fld id 231end ifend repeatput the selectedText into ithide fld id 231if it is empty then exit to HyperCardput 0 into mTestput it into aTestif aTest is "Load" or aTest is "Save" then lsTitles mTest, aTestif aTest is "Erase" or aTest is "Name" then erTitles mTest, aTestend mouseDownon lsTitles mTest, aTestput the script of bg btn id 227 into HyperButtonData---HyperButton Listif (the number of lines in HyperButtonData) > 3 and mTest = 0 thenput the short name of me into fNput line 4 to (the number of lines in HyperButtonData) of HyperButtonData into tempScriptput the number of lines in tempScript into fLput "This HyperButton List is‚Ķ"&fN&"‚Ķ("&fL&" items out of 100)" into msgend ifif aTest is "Load" thenif number of this cd <> 1 and mTest = 0 thenif the AutoHilite of bg btn id 227  = FALSE thenanswer "HyperButton List was modified‚ĶContinue Erases it!" with "Continue" or "Stop"if it is "Stop" thenhide msgexit to HyperCardend ifend ifend ifput HyperButtonData into tempScriptput line 4 to (the number of lines in HyperButtonData) of HyperButtonData into tempScriptput the number of lines in tempScript into fLput the short name of me into fNput "This HyperButton List is‚Ķ"&fN&"‚Ķ("&fL&" items out of 100)" into msganswer file "HyperButton List to Load‚Ķ(.hl)" of type Textif the result is "Cancel" thenhide msgExit to HyperCardend ifput it into fileLoadput fileLoad into ithide msgif fileLoad is empty then exit to HyperCardput the length of fileLoad into nameLengthrepeat with counter = nameLength down to 0get char counter of fileLoadif it = ":" then EXIT REPEATend repeatput char (counter+1) to nameLength of fileLoad into IT----put the length of IT into nameLengthrepeat with counter = nameLength down to 0put char counter of IT into tempif temp = ":" then EXIT REPEATend repeatput char (counter+1) to nameLength of it into tempFileName--if number of chars in tempFileName > 15 thenplay  "harpsichord" tempo 400 "b4h#"put "The Oueue Name must be no more than 15 characters!" into msgwait 3 sechide msgexit to HyperCardend if--put char ((the number of chars in it)-2) to ¬¨(the number of chars in it) of it into tempCharif tempChar ‚↠".hl" thenanswer (tempFileName)&" is not a HyperButton List!"&RETURN&¬¨"The Name MUST have a  .hl  extension."exit to HyperCardend if----if the number of this cd > 1 and mTest = 0 thenset the name of me to itset the name of bg btn id 227 to 1end ifopen file fileLoadread from FILE fileLoad for 5000if number of this cd <> 1 and mTest = 0 thenset autoHilite of bg btn id 227 to TRUEend ifclose file fileLoadif the number of lines in HyperButtonData > 3 then ¬¨delete line 4 to (the number of lines in HyperButtonData) of HyperButtonDataput return&it after line 3 of HyperButtonDatadelete the last line of HyperButtonData --  Deletes extra return!set the script of  bg btn id 227 to HyperButtonData-- these next 2 lines resets scan when HB List is modifiedset the name of  bg btn id 227 to 1global xLnput 1 into xLnexit to HyperCardend ifif aTest is "Save" thenif (the number of lines in HyperButtonData) = 3 thenset cursor to noneplay  "harpsichord" tempo 400 "b4h#"put "HyperButton List is Empty--Nothing to Save!" into msgwait 3 sechide msgend ifPUT EMPTY INTO FILESAVEif mTest = 0 then put the short name of me into itif it = " " then put empty into itask file "HyperButton List to Save‚Ķ(.hl)" with itif the result is "Cancel" thenhide msgexit to HyperCardend ifput it into FileSave--put char ((the number of chars in it)-2) to ¬¨(the number of chars in it) of it into tempCharif tempChar ‚↠".hl" thenhide msganswer "Add the correct extension!"&RETURN&¬¨"Enter it again with "&QUOTE&".hl"&QUOTE&" extension."exit to HyperCardend if--if FileSave is empty thenhide msgexit to HyperCardend ifif the number of chars in the short name of me  > 15 thenalertput "The Oueue Name must be no more than 15 characters!" into msgwait 3 sechide msgexit to HyperCardend if--put the length of fileSave into nameLengthrepeat with counter = nameLength down to 0put char counter of IT into tempif temp = ":" then EXIT REPEATend repeatput char (counter+1) to nameLength of it into tempFileNameif number of chars in tempFileName > 15 thenplay  "harpsichord" tempo 400 "b4h#"put "The Oueue Name must be no more than 15 characters!" into msgwait 3 sechide msgexit to HyperCardend if--hide msgopen file FileSaveif number of this cd <> 1 and mTest = 0 thendelete line 1 to 3 of HyperButtonDataput HyperButtonData into tempScriptwrite tempScript to file FileSaveset autoHilite of bg btn id 227 to TRUEend ifalertclose file FileSaveexit to HyperCardend ifif the mouseV < 260 then exit to Hypercardget the mouseVend lsTitleson erTitles mTest, aTestput the script of bg btn id 227 into HyperButtonDataif the autoHilite of bg btn id 227 = FALSE thenanswer "HyperButton List is modified/not saved"&return&"‚ĶContinue?" with "Continue" or "Stop"if it is "Stop" then exit to HyperCardend ifif aTest is "Name" thenput the short name of me into tpNameask "Enter Name.hl (up to 15 chars)" with tpNameif the result is "Cancel" then exit to HyperCard--put 0 into tempCharput char ((the number of chars in it)-2) to ¬¨(the number of chars in it) of it into tempCharif tempChar ‚↠".hl" thenanswer QUOTE&it&QUOTE&" isn't a HyperButton List Name!"&RETURN&¬¨"The Name MUST have a  .hl  extension."exit to HyperCardend if--if number of chars in it <= 15 thenset the name of me to itelseplay  "harpsichord" tempo 400 "b4h#"put "The Oueue Name must be no more than 15 characters!" into msgwait 3 sechide msgexit to HyperCardend ifset autoHilite of bg btn id 227 to FALSEhide msgexit to HyperCardend ifif aTest is "Erase" thenput the short name of me into fNanswer "ERASE HyperButton List "&QUOTE&fN&QUOTE&"?" with "Yes" or "Cancel"if it is "Cancel" then exit to HyperCarddelete line 4 to (the number of lines in HyperButtonData) of HyperButtonDataset the script of bg btn id 227 to HyperButtonDataset autoHilite of bg btn id 227 to TRUEset the name of me to " "set the name of bg btn id 227 to "0"exit to HyperCardend ifif it is "Cancel" then exit to HyperCardend erTitles</script>
  1480.     </part>
  1481.     <part>
  1482.         <id>219</id>
  1483.         <type>button</type>
  1484.         <visible> <false /> </visible>
  1485.         <reserved5> 0 </reserved5>
  1486.         <reserved4> 0 </reserved4>
  1487.         <reserved3> 0 </reserved3>
  1488.         <reserved2> 0 </reserved2>
  1489.         <reserved1> 0 </reserved1>
  1490.         <enabled> <true /> </enabled>
  1491.         <rect>
  1492.             <left>90</left>
  1493.             <top>262</top>
  1494.             <right>472</right>
  1495.             <bottom>294</bottom>
  1496.         </rect>
  1497.         <style>opaque</style>
  1498.         <showName> <false /> </showName>
  1499.         <highlight> <true /> </highlight>
  1500.         <autoHighlight> <false /> </autoHighlight>
  1501.         <sharedHighlight> <true /> </sharedHighlight>
  1502.         <family>0</family>
  1503.         <titleWidth>0</titleWidth>
  1504.         <icon>0</icon>
  1505.         <textAlign>center</textAlign>
  1506.         <font>Chicago</font>
  1507.         <textSize>12</textSize>
  1508.         <textStyle>plain</textStyle>
  1509.         <name></name>
  1510.         <script>-- on mouseWithin-- hide me-- hide bg btn id 220-- end mouseWithin-- on mouseLeave-- show me-- show bg btn id 220-- end mouseLeave</script>
  1511.     </part>
  1512.     <part>
  1513.         <id>54</id>
  1514.         <type>button</type>
  1515.         <visible> <true /> </visible>
  1516.         <reserved5> 0 </reserved5>
  1517.         <reserved4> 0 </reserved4>
  1518.         <reserved3> 0 </reserved3>
  1519.         <reserved2> 0 </reserved2>
  1520.         <reserved1> 0 </reserved1>
  1521.         <enabled> <true /> </enabled>
  1522.         <rect>
  1523.             <left>466</left>
  1524.             <top>267</top>
  1525.             <right>497</right>
  1526.             <bottom>289</bottom>
  1527.         </rect>
  1528.         <style>roundrect</style>
  1529.         <showName> <true /> </showName>
  1530.         <highlight> <false /> </highlight>
  1531.         <autoHighlight> <false /> </autoHighlight>
  1532.         <sharedHighlight> <true /> </sharedHighlight>
  1533.         <family>0</family>
  1534.         <titleWidth>0</titleWidth>
  1535.         <icon>0</icon>
  1536.         <textAlign>center</textAlign>
  1537.         <font>Chicago</font>
  1538.         <textSize>12</textSize>
  1539.         <textStyle>condense</textStyle>
  1540.         <name>1</name>
  1541.         <script>on mouseUpif the shiftKey is down thenif the highlight of me is true thenset the highlight of me to falseunmark this cdhide msgelseset the highlite of me to truemark this cdhide msgend ifexit to HyperCardend ifif the CommandKey is down thenget the number of marked cdsif the number of marked cds > 0 thenanswer "UnMark All Pages? ("&it&")" with "Yes" or "Cancel"if it is "yes" thenunmark all cdsset the highlight of bg btn id 54 to falsehide msgexit to HyperCardend ifhide msgexit to HyperCardend ifhide msganswer "There Are Not Any Marked Pages."exit to HyperCardend ifif the optionKey is down thenanswer "Show All Marked Pages" with ¬¨"Yes" or "Cancel"if it is "Cancel" thenhide msgexit to HyperCardend ifif it is "Yes" thenhide msgshow marked cdsopenCardexit to HyperCardend ifend ifput the short name of bkgnd button id 54 into bNameset the name of bkgnd Button id 54 to the number of cards-1wait for 1 secondset the name of bkgnd Button id 54 to bNameend mouseUpon mouseWithinif the ShiftKey is down or the OptionKey is down or the CommandKey is down then  put "Shift+Click=Mark/UnMark  Option+Click=Show  Cmnd+Click=UnMark All"end mouseWithinon mouseLeavehide msgend mouseLeave</script>
  1542.     </part>
  1543.     <part>
  1544.         <id>238</id>
  1545.         <type>button</type>
  1546.         <visible> <true /> </visible>
  1547.         <reserved5> 0 </reserved5>
  1548.         <reserved4> 0 </reserved4>
  1549.         <reserved3> 0 </reserved3>
  1550.         <reserved2> 0 </reserved2>
  1551.         <reserved1> 0 </reserved1>
  1552.         <enabled> <true /> </enabled>
  1553.         <rect>
  1554.             <left>92</left>
  1555.             <top>303</top>
  1556.             <right>126</right>
  1557.             <bottom>329</bottom>
  1558.         </rect>
  1559.         <style>transparent</style>
  1560.         <showName> <false /> </showName>
  1561.         <highlight> <false /> </highlight>
  1562.         <autoHighlight> <false /> </autoHighlight>
  1563.         <sharedHighlight> <true /> </sharedHighlight>
  1564.         <family>0</family>
  1565.         <titleWidth>0</titleWidth>
  1566.         <icon>10624</icon>
  1567.         <textAlign>center</textAlign>
  1568.         <font>Chicago</font>
  1569.         <textSize>9</textSize>
  1570.         <textStyle>plain</textStyle>
  1571.         <name>0</name>
  1572.         <script>on mouseUpif the visible of fld id 239 is false thenhide bg btn id 227lock screenshow fld id 239set the icon of me to "1window"set the rect of fld id 66 to 0,148,512,260put fld id 66 into fld id 239disable menuItem "HyperButton" of menu Waldoget the scroll of fld id 239set the name of me to itset the name of bg btn id 240 to (the number of this cd)-1show bg btn id 240unlock screenelselock screenhide fld id 239set the icon of me to "2window"set the rect of fld id 66 to 0,19,512,260enable menuItem "HyperButton" of menu Waldoput empty into fld id 239set the scroll of fld id 239 to 0set the name of me to 0hide bg btn id 240unlock screenend ifend mouseUp</script>
  1573.     </part>
  1574.     <part>
  1575.         <id>220</id>
  1576.         <type>button</type>
  1577.         <visible> <false /> </visible>
  1578.         <reserved5> 0 </reserved5>
  1579.         <reserved4> 0 </reserved4>
  1580.         <reserved3> 0 </reserved3>
  1581.         <reserved2> 0 </reserved2>
  1582.         <reserved1> 0 </reserved1>
  1583.         <enabled> <true /> </enabled>
  1584.         <rect>
  1585.             <left>90</left>
  1586.             <top>292</top>
  1587.             <right>226</right>
  1588.             <bottom>330</bottom>
  1589.         </rect>
  1590.         <style>opaque</style>
  1591.         <showName> <false /> </showName>
  1592.         <highlight> <true /> </highlight>
  1593.         <autoHighlight> <false /> </autoHighlight>
  1594.         <sharedHighlight> <true /> </sharedHighlight>
  1595.         <family>0</family>
  1596.         <titleWidth>0</titleWidth>
  1597.         <icon>0</icon>
  1598.         <textAlign>center</textAlign>
  1599.         <font>Chicago</font>
  1600.         <textSize>12</textSize>
  1601.         <textStyle>plain</textStyle>
  1602.         <name></name>
  1603.         <script>-- on mouseWithin-- hide me-- hide bg btn id 219-- end mouseWithin-- on mouseLeave-- show me-- show  bg btn id 219-- end mouseLeave</script>
  1604.     </part>
  1605.     <part>
  1606.         <id>243</id>
  1607.         <type>field</type>
  1608.         <visible> <false /> </visible>
  1609.         <dontWrap> <false /> </dontWrap>
  1610.         <dontSearch> <true /> </dontSearch>
  1611.         <sharedText> <false /> </sharedText>
  1612.         <fixedLineHeight> <false /> </fixedLineHeight>
  1613.         <autoTab> <false /> </autoTab>
  1614.         <lockText> <false /> </lockText>
  1615.         <rect>
  1616.             <left>0</left>
  1617.             <top>19</top>
  1618.             <right>512</right>
  1619.             <bottom>260</bottom>
  1620.         </rect>
  1621.         <style>rectangle</style>
  1622.         <autoSelect> <false /> </autoSelect>
  1623.         <showLines> <false /> </showLines>
  1624.         <wideMargins> <false /> </wideMargins>
  1625.         <multipleLines> <false /> </multipleLines>
  1626.         <reservedFamily> 0 </reservedFamily>
  1627.         <titleWidth>0</titleWidth>
  1628.         <icon>0</icon>
  1629.         <textAlign>left</textAlign>
  1630.         <font>Geneva</font>
  1631.         <textSize>14</textSize>
  1632.         <textStyle>plain</textStyle>
  1633.         <textHeight>18</textHeight>
  1634.         <name>9</name>
  1635.         <script></script>
  1636.     </part>
  1637.     <part>
  1638.         <id>244</id>
  1639.         <type>field</type>
  1640.         <visible> <false /> </visible>
  1641.         <dontWrap> <true /> </dontWrap>
  1642.         <dontSearch> <false /> </dontSearch>
  1643.         <sharedText> <true /> </sharedText>
  1644.         <fixedLineHeight> <true /> </fixedLineHeight>
  1645.         <autoTab> <false /> </autoTab>
  1646.         <lockText> <true /> </lockText>
  1647.         <rect>
  1648.             <left>0</left>
  1649.             <top>18</top>
  1650.             <right>512</right>
  1651.             <bottom>259</bottom>
  1652.         </rect>
  1653.         <style>scrolling</style>
  1654.         <autoSelect> <false /> </autoSelect>
  1655.         <showLines> <false /> </showLines>
  1656.         <wideMargins> <false /> </wideMargins>
  1657.         <multipleLines> <false /> </multipleLines>
  1658.         <reservedFamily> 0 </reservedFamily>
  1659.         <titleWidth>0</titleWidth>
  1660.         <icon>0</icon>
  1661.         <textAlign>left</textAlign>
  1662.         <font>Monaco</font>
  1663.         <textSize>9</textSize>
  1664.         <textStyle>plain</textStyle>
  1665.         <textHeight>12</textHeight>
  1666.         <name>Monaco</name>
  1667.         <script>on mouseDown tempselect the clickLineget  word one of ( the selectedText)delete the last char of itif it is not a number or it is empty then exit to HyperCardvisual effect zoom opengo to cd it+1end mouseDown</script>
  1668.     </part>
  1669.     <part>
  1670.         <id>199</id>
  1671.         <type>button</type>
  1672.         <visible> <false /> </visible>
  1673.         <reserved5> 0 </reserved5>
  1674.         <reserved4> 0 </reserved4>
  1675.         <reserved3> 0 </reserved3>
  1676.         <reserved2> 0 </reserved2>
  1677.         <reserved1> 0 </reserved1>
  1678.         <enabled> <true /> </enabled>
  1679.         <rect>
  1680.             <left>9</left>
  1681.             <top>296</top>
  1682.             <right>39</right>
  1683.             <bottom>326</bottom>
  1684.         </rect>
  1685.         <style>transparent</style>
  1686.         <showName> <false /> </showName>
  1687.         <highlight> <false /> </highlight>
  1688.         <autoHighlight> <false /> </autoHighlight>
  1689.         <sharedHighlight> <true /> </sharedHighlight>
  1690.         <family>0</family>
  1691.         <titleWidth>0</titleWidth>
  1692.         <icon>1364</icon>
  1693.         <textAlign>center</textAlign>
  1694.         <font>Chicago</font>
  1695.         <textSize>12</textSize>
  1696.         <textStyle>plain</textStyle>
  1697.         <name>GrayPicture</name>
  1698.         <script>on mouseUpif the number of this  cd is 1 thenbeepexit to HyperCardend ifunlock screenglobal xholderC, xlineList, xlineNum, xlineBA, xbuttonD,xtestOneput empty into xtestOneif (cd fld id 92 of cd 1) = empty thenplay "harpsichord" tempo 400 "b4h# d5h# a5q# "wait 1 secexit to HyperCardend ifset the cursor to watchput the number of lines in cd fld id 92 of cd 1 into xlineListif xlineList < 1 thenplay "harpsichord" tempo 400 "b4h# d5h# a5q# "wait 1 secexit to HyperCardend ifput the number of lines in cd fld id 92 of cd 1 into fLrepeat with counter = 1 to xlineListput counter into lineNumput line counter of cd fld id 92 of cd 1 into lookUpput (item 1 of line counter of cd fld id 92 of cd 1) into xPicput counter&"/"&fL&")"&¬¨" Picture "&item 2 of line counter of (cd fld id 92 of cd 1)&&¬¨"on Page #"&(( short number of cd id xPic)-1)&return after temp178end repeatput temp178 into fld id 178--set the cursor to handshow fld id 178put "                         Opt(Finds Picture Page)  Click(Ends)" into msgrepeat until the mouseClickput empty into vermosput (trunc((the mouseV/12))) into verMosput (ABS(vermos)) into Tempif temp-2 < 1 then select line 1 of fld id 178if temp-2 > 0 and temp-2 <= xlineList thenselect line  temp-2 of fld id 178end ifif temp-2 > xlineList thenselect line xlineList of fld id 178end ifput the selectedText into lookUpif the  optionKey is down thenset lockMessages to truehide fld id 178hide msgput empty into fld id 178if temp-2 <= xlineList and temp-2 > 0  thengo to cd id (item 1 of line temp-2 of (cd fld id 92 of cd 1))end ifif temp-2 < 1 thengo to cd id (item 1 of line 1 of (cd fld id 92 of card 1))end ifif temp-2 > xlineList thengo to cd id (item 1 of line xlineList of (cd fld id 92 of cd 1))end ifopenCardexit to HyperCardend if---end repeathide msghide fld id 178put empty into fld id 178exit to HyperCardend mouseUp</script>
  1699.     </part>
  1700.     <part>
  1701.         <id>239</id>
  1702.         <type>field</type>
  1703.         <visible> <false /> </visible>
  1704.         <dontWrap> <false /> </dontWrap>
  1705.         <dontSearch> <true /> </dontSearch>
  1706.         <sharedText> <true /> </sharedText>
  1707.         <fixedLineHeight> <false /> </fixedLineHeight>
  1708.         <autoTab> <false /> </autoTab>
  1709.         <lockText> <false /> </lockText>
  1710.         <rect>
  1711.             <left>0</left>
  1712.             <top>20</top>
  1713.             <right>512</right>
  1714.             <bottom>148</bottom>
  1715.         </rect>
  1716.         <style>scrolling</style>
  1717.         <autoSelect> <false /> </autoSelect>
  1718.         <showLines> <false /> </showLines>
  1719.         <wideMargins> <false /> </wideMargins>
  1720.         <multipleLines> <false /> </multipleLines>
  1721.         <reservedFamily> 0 </reservedFamily>
  1722.         <titleWidth>0</titleWidth>
  1723.         <icon>0</icon>
  1724.         <textAlign>left</textAlign>
  1725.         <font>Monaco</font>
  1726.         <textSize>12</textSize>
  1727.         <textStyle>plain</textStyle>
  1728.         <textHeight>16</textHeight>
  1729.         <name>Monaco</name>
  1730.         <script>on mouseDown tempselect the clickLineget  word one of ( the selectedText)delete the last char of itif it is not a number or it is empty then exit to HyperCardvisual effect zoom opengo to cd it+1end mouseDown</script>
  1731.     </part>
  1732.     <part>
  1733.         <id>241</id>
  1734.         <type>field</type>
  1735.         <visible> <true /> </visible>
  1736.         <dontWrap> <false /> </dontWrap>
  1737.         <dontSearch> <true /> </dontSearch>
  1738.         <sharedText> <false /> </sharedText>
  1739.         <fixedLineHeight> <false /> </fixedLineHeight>
  1740.         <autoTab> <false /> </autoTab>
  1741.         <lockText> <true /> </lockText>
  1742.         <rect>
  1743.             <left>487</left>
  1744.             <top>313</top>
  1745.             <right>499</right>
  1746.             <bottom>331</bottom>
  1747.         </rect>
  1748.         <style>transparent</style>
  1749.         <autoSelect> <false /> </autoSelect>
  1750.         <showLines> <false /> </showLines>
  1751.         <wideMargins> <false /> </wideMargins>
  1752.         <multipleLines> <false /> </multipleLines>
  1753.         <reservedFamily> 0 </reservedFamily>
  1754.         <titleWidth>0</titleWidth>
  1755.         <icon>0</icon>
  1756.         <textAlign>left</textAlign>
  1757.         <font>Geneva</font>
  1758.         <textSize>12</textSize>
  1759.         <textStyle>shadow</textStyle>
  1760.         <textStyle>outline</textStyle>
  1761.         <textStyle>bold</textStyle>
  1762.         <textHeight>16</textHeight>
  1763.         <name>HD 20:HyperCardStacks:WaldoDocs-F:WaldoDocs</name>
  1764.         <script>on mouseUpput fld id 241 into itif it = empty thenif the visible of bg btn id 191 is false thensend mouseUp to bg btn id 200exit to HyperCardend ifif the visible of bg btn id 191 is true thensend mouseUp to bg btn id 191exit to HyperCardend ifend ifget line two of itpush cdselect line one of bg fld id 241go to ((the short name of me)&it)unlock screenend mouseUp</script>
  1765.     </part>
  1766.     <part>
  1767.         <id>204</id>
  1768.         <type>button</type>
  1769.         <visible> <true /> </visible>
  1770.         <reserved5> 0 </reserved5>
  1771.         <reserved4> 0 </reserved4>
  1772.         <reserved3> 0 </reserved3>
  1773.         <reserved2> 0 </reserved2>
  1774.         <reserved1> 0 </reserved1>
  1775.         <enabled> <true /> </enabled>
  1776.         <rect>
  1777.             <left>346</left>
  1778.             <top>296</top>
  1779.             <right>378</right>
  1780.             <bottom>326</bottom>
  1781.         </rect>
  1782.         <style>opaque</style>
  1783.         <showName> <false /> </showName>
  1784.         <highlight> <false /> </highlight>
  1785.         <autoHighlight> <false /> </autoHighlight>
  1786.         <sharedHighlight> <true /> </sharedHighlight>
  1787.         <family>0</family>
  1788.         <titleWidth>0</titleWidth>
  1789.         <icon>1358</icon>
  1790.         <textAlign>center</textAlign>
  1791.         <font>Chicago</font>
  1792.         <textSize>12</textSize>
  1793.         <textStyle>plain</textStyle>
  1794.         <name></name>
  1795.         <script>on mouseUpif the ShiftKey is down thenvisual effect zoom opengo to last cdexit to HyperCardend ifend mouseUp</script>
  1796.     </part>
  1797.     <part>
  1798.         <id>245</id>
  1799.         <type>field</type>
  1800.         <visible> <false /> </visible>
  1801.         <dontWrap> <false /> </dontWrap>
  1802.         <dontSearch> <true /> </dontSearch>
  1803.         <sharedText> <true /> </sharedText>
  1804.         <fixedLineHeight> <true /> </fixedLineHeight>
  1805.         <autoTab> <false /> </autoTab>
  1806.         <lockText> <false /> </lockText>
  1807.         <rect>
  1808.             <left>0</left>
  1809.             <top>262</top>
  1810.             <right>512</right>
  1811.             <bottom>342</bottom>
  1812.         </rect>
  1813.         <style>shadow</style>
  1814.         <autoSelect> <false /> </autoSelect>
  1815.         <showLines> <false /> </showLines>
  1816.         <wideMargins> <false /> </wideMargins>
  1817.         <multipleLines> <false /> </multipleLines>
  1818.         <reservedFamily> 0 </reservedFamily>
  1819.         <titleWidth>0</titleWidth>
  1820.         <icon>0</icon>
  1821.         <textAlign>left</textAlign>
  1822.         <font>Chicago</font>
  1823.         <textSize>12</textSize>
  1824.         <textStyle>plain</textStyle>
  1825.         <textHeight>16</textHeight>
  1826.         <name>New notes</name>
  1827.         <script>on mouseDown tempif word 2 of the clickChunk   = word 4 of the clickChunk  thenexit to HyperCardend ifselect the clickChunkput the selectedtext into chunkif Chunk is "Exit" then ExitFieldsif Chunk is "Save" then SaveFieldsif Chunk is "Next" then NextFieldsif Chunk is "Prev" then PrevFieldsif Chunk is "List" then nowListend mouseDownon nowListHideFieldsHyperButtonOptionsend nowListon SaveFieldsanswer "Save Page Referances?" with "Cancel" or "No" or "Yes"if it is "Cancel" then exit to HyperCardif it is "No" then put 0 into pageTest else put 1 into pageTestput "                                       Creating File"set cursor to watch--put the script of bg btn id 227 into HyperButtonput the number of lines in HyperButton into HBlinesset cursor to watch -- ¬•put line 4 to HBlines of HyperButton into GoButtonput empty into fieldHolder -- Initializes variable, sets variable to 0.-- item 5 of the line is the note-- the name of bg btn id 227 is the current line numberput the number of lines in GoButton into NumberOfSpotsrepeat with counter = 1 to NumberOfSpotsif the number of items in line counter of GoButton > 4 thenif (item 5 of line counter of GoButton) = empty then next repeatif pagetest is 1 thenput "Page "&(item 1 of line counter of GoButton)-1&RETURN&(item 5 of line counter of GoButton)&RETURN&RETURN  after FieldHolderelseput (item 5 of line counter of GoButton)&RETURN&RETURN  after FieldHolderend if-- --repeatif offset("‚âà",FieldHolder) > 0 thenput "," into char (offset("‚âà",FieldHolder)) of FieldHolderelseexit repeatend ifend repeat-- ---- --repeatif offset("¬¨",fieldHolder) > 0 thenput RETURN into char (offset("¬¨",fieldHolder)) of FieldHolderelseexit repeatend ifend repeatend ifend repeat--put ((the short name of bg btn id 227))&"/"&(the number of lines in GoButton)&" ["&(the short name of bg btn id 230)&"]"-- ask file "Save (append) Notes to‚Ķ" with (the short name of fld id 245)ask file "Save Notes to‚Ķ" with (the short name of fld id 245)if it is empty thenput ((the short name of bg btn id 227))&"/"&(the number of lines in GoButton)&" ["&(the short name of bg btn id 230)&"]"put empty into FieldHolderexit to hyperCardend ifput it into FileSaveopen file itwrite FieldHolder to file FileSave  -- at endset autoTab of fld id 245 to false--put the length of FileSave into nameLengthrepeat with counter = nameLength down to 0get char counter of FileSaveif it = ":" then EXIT REPEATend repeatput char (counter+1) to nameLength of FileSave into IT--set the name of fld id 245 to italertclose file FileSaveput empty into FieldHolderput ((the short name of bg btn id 227))&"/"&(the number of lines in GoButton)&" ["&(the short name of bg btn id 230)&"]"end SaveFieldson SwitchViewsend SwitchViewson createFileend createFileon NextFieldsget the script of bg btn id 227put (the number of lines in it)-3 into scriptLinesput (the short name of bg btn id 227) into HypBtnNumberif HypBtnNumber = scriptLines thenbeepexit to HyperCardelseif the shiftKey ‚↠down then HideFieldsset the name of bg btn id 227 to HypBtnNumber+1HyperButtonNoteend ifend NextFieldson PrevFieldsget the script of bg btn id 227put (the number of lines in it)-3 into scriptLinesput (the short name of bg btn id 227) into HypBtnNumberif HypBtnNumber = 1 thenbeepexit to HyperCardelseif the shiftKey ‚↠down then HideFieldsset the name of bg btn id 227 to HypBtnNumber-1HyperButtonNoteend ifend PrevFieldson ExitFieldsHideFieldsput the script of bg btn id 227 into HyperButtonput line 4 to (the number of lines in HyperButton) of HyperButton into GoButtongo to cd (item one of line (the short name of bg btn id 227 ) of GoButton)lock Screenset the scroll of bg fld id 66 to (item 2 of line (the short name of bg btn id 227 ) of GoButton)put the scroll of bg fld id 66 into tempScrollif tempScroll ‚↠(item 2 of line (the short name of bg btn id 227 ) of GoButton) or (item one of line (the short name of bg btn id 227 ) of GoButton) > the number of cds  thenput "This Button List does NOT match this document!"wait 4 secend ifset the loc of bg btn id 227 to (item 3 of line (the short name of bg btn id 227 ) of GoButton),(item 4 of line (the short name of bg btn id 227 ) of GoButton)set the visible of bg btn id 227  to trueset the name of bg btn id 227  to ((the short name of bg btn id 227  ) + 1)set cursor to Ibeamhide msgexit to HyperCardend ExitFieldson HideFieldsput the script of bg btn id 227 into HyperButtonput line 4 to (the number of lines in HyperButton) of HyperButton into GoButtonput fld id 243 into tempSET CURSOR TO WATCH-- --repeatif offset(",",temp) > 0 thenput "‚âà" into char (offset(",",temp)) of tempelseexit repeatend ifend repeat-- -- ¬¨repeatif offset(RETURN,temp) > 0 thenput "¬¨" into char (offset(RETURN,temp)) of tempelseexit repeatend ifend repeat-- --if the number of chars in temp > 900 thenput (the number of chars in temp) into tooManyCharsselect char 900 to tooManyChars of fld id 243put "           Can Not be more than 900 characters in a Note!"wait 3 secondsexit to HyperCardend ifif the number of items in line (the short name of bg btn id 227) of GoButton > 4 thenput the number of items in line (the short name of bg btn id 227) of GoButton into GBLinesdelete item 5 to GBLines of line (the short name of bg btn id 227) of GoButtonput ","&temp after item 4 of line (the short name of bg btn id 227) of GoButtonelseput ","&temp after item 4 of line (the short name of bg btn id 227) of GoButtonend ifdelete line 4 to (the number of lines in HyperButton) of HyperButtonput RETURN&GoButton after line 3 of HyperButtonset the script of bg btn id 227 to HyperButtonlock screenhide fld id 243hide fld id 245enable menu "Waldo"-- enable menu "Font"enable menu "Go"enable menu "File"unlock screenset the autoHilite of bg btn id 227 to FALSEput empty into fld id 243global CharsInHBnotesget the script of bg btn id 227if CharsInHBnotes ‚↠it then set the AutoHilite of bg btn id 227 to FALSEend HideFields</script>
  1828.     </part>
  1829.     <part>
  1830.         <id>179</id>
  1831.         <type>field</type>
  1832.         <visible> <true /> </visible>
  1833.         <dontWrap> <false /> </dontWrap>
  1834.         <dontSearch> <false /> </dontSearch>
  1835.         <sharedText> <true /> </sharedText>
  1836.         <fixedLineHeight> <false /> </fixedLineHeight>
  1837.         <autoTab> <false /> </autoTab>
  1838.         <lockText> <true /> </lockText>
  1839.         <rect>
  1840.             <left>10</left>
  1841.             <top>330</top>
  1842.             <right>503</right>
  1843.             <bottom>342</bottom>
  1844.         </rect>
  1845.         <style>rectangle</style>
  1846.         <autoSelect> <false /> </autoSelect>
  1847.         <showLines> <false /> </showLines>
  1848.         <wideMargins> <false /> </wideMargins>
  1849.         <multipleLines> <false /> </multipleLines>
  1850.         <reservedFamily> 0 </reservedFamily>
  1851.         <titleWidth>0</titleWidth>
  1852.         <icon>0</icon>
  1853.         <textAlign>left</textAlign>
  1854.         <font>Monaco</font>
  1855.         <textSize>9</textSize>
  1856.         <textStyle>plain</textStyle>
  1857.         <textHeight>12</textHeight>
  1858.         <name></name>
  1859.         <script></script>
  1860.     </part>
  1861.     <part>
  1862.         <id>227</id>
  1863.         <type>button</type>
  1864.         <visible> <false /> </visible>
  1865.         <reserved5> 0 </reserved5>
  1866.         <reserved4> 0 </reserved4>
  1867.         <reserved3> 0 </reserved3>
  1868.         <reserved2> 0 </reserved2>
  1869.         <reserved1> 0 </reserved1>
  1870.         <enabled> <true /> </enabled>
  1871.         <rect>
  1872.             <left>199</left>
  1873.             <top>158</top>
  1874.             <right>291</right>
  1875.             <bottom>176</bottom>
  1876.         </rect>
  1877.         <style>transparent</style>
  1878.         <showName> <false /> </showName>
  1879.         <highlight> <true /> </highlight>
  1880.         <autoHighlight> <true /> </autoHighlight>
  1881.         <sharedHighlight> <true /> </sharedHighlight>
  1882.         <family>0</family>
  1883.         <titleWidth>0</titleWidth>
  1884.         <icon>0</icon>
  1885.         <textAlign>center</textAlign>
  1886.         <font>Chicago</font>
  1887.         <textSize>12</textSize>
  1888.         <textStyle>plain</textStyle>
  1889.         <name>0</name>
  1890.         <script>on mouseUpDriveHyperButtonend mouseUp</script>
  1891.     </part>
  1892.     <part>
  1893.         <id>177</id>
  1894.         <type>field</type>
  1895.         <visible> <false /> </visible>
  1896.         <dontWrap> <true /> </dontWrap>
  1897.         <dontSearch> <true /> </dontSearch>
  1898.         <sharedText> <true /> </sharedText>
  1899.         <fixedLineHeight> <false /> </fixedLineHeight>
  1900.         <autoTab> <false /> </autoTab>
  1901.         <lockText> <false /> </lockText>
  1902.         <rect>
  1903.             <left>2</left>
  1904.             <top>25</top>
  1905.             <right>507</right>
  1906.             <bottom>250</bottom>
  1907.         </rect>
  1908.         <style>scrolling</style>
  1909.         <autoSelect> <false /> </autoSelect>
  1910.         <showLines> <false /> </showLines>
  1911.         <wideMargins> <false /> </wideMargins>
  1912.         <multipleLines> <false /> </multipleLines>
  1913.         <reservedFamily> 0 </reservedFamily>
  1914.         <titleWidth>0</titleWidth>
  1915.         <icon>0</icon>
  1916.         <textAlign>left</textAlign>
  1917.         <font>Monaco</font>
  1918.         <textSize>9</textSize>
  1919.         <textStyle>plain</textStyle>
  1920.         <textHeight>12</textHeight>
  1921.         <name> </name>
  1922.         <script>36) *UserLand tool kit to give developers IAC connections*4)  *Modem speeds are on their way up again* thanks to a newly approved international6)  *V.32bis provides other new benefits as well.* For example, it defines the way7) *New Modems and Pricing*</script>
  1923.     </part>
  1924.     <part>
  1925.         <id>178</id>
  1926.         <type>field</type>
  1927.         <visible> <false /> </visible>
  1928.         <dontWrap> <true /> </dontWrap>
  1929.         <dontSearch> <true /> </dontSearch>
  1930.         <sharedText> <true /> </sharedText>
  1931.         <fixedLineHeight> <false /> </fixedLineHeight>
  1932.         <autoTab> <false /> </autoTab>
  1933.         <lockText> <false /> </lockText>
  1934.         <rect>
  1935.             <left>169</left>
  1936.             <top>58</top>
  1937.             <right>292</right>
  1938.             <bottom>280</bottom>
  1939.         </rect>
  1940.         <style>scrolling</style>
  1941.         <autoSelect> <false /> </autoSelect>
  1942.         <showLines> <false /> </showLines>
  1943.         <wideMargins> <false /> </wideMargins>
  1944.         <multipleLines> <false /> </multipleLines>
  1945.         <reservedFamily> 0 </reservedFamily>
  1946.         <titleWidth>0</titleWidth>
  1947.         <icon>0</icon>
  1948.         <textAlign>left</textAlign>
  1949.         <font>Monaco</font>
  1950.         <textSize>9</textSize>
  1951.         <textStyle>extend</textStyle>
  1952.         <textStyle>bold</textStyle>
  1953.         <textHeight>12</textHeight>
  1954.         <name></name>
  1955.         <script></script>
  1956.     </part>
  1957.     <part>
  1958.         <id>174</id>
  1959.         <type>field</type>
  1960.         <visible> <false /> </visible>
  1961.         <dontWrap> <true /> </dontWrap>
  1962.         <dontSearch> <true /> </dontSearch>
  1963.         <sharedText> <true /> </sharedText>
  1964.         <fixedLineHeight> <true /> </fixedLineHeight>
  1965.         <autoTab> <false /> </autoTab>
  1966.         <lockText> <false /> </lockText>
  1967.         <rect>
  1968.             <left>193</left>
  1969.             <top>18</top>
  1970.             <right>510</right>
  1971.             <bottom>270</bottom>
  1972.         </rect>
  1973.         <style>scrolling</style>
  1974.         <autoSelect> <false /> </autoSelect>
  1975.         <showLines> <false /> </showLines>
  1976.         <wideMargins> <true /> </wideMargins>
  1977.         <multipleLines> <false /> </multipleLines>
  1978.         <reservedFamily> 0 </reservedFamily>
  1979.         <titleWidth>0</titleWidth>
  1980.         <icon>0</icon>
  1981.         <textAlign>left</textAlign>
  1982.         <font>Geneva</font>
  1983.         <textSize>9</textSize>
  1984.         <textStyle>extend</textStyle>
  1985.         <textStyle>bold</textStyle>
  1986.         <textHeight>12</textHeight>
  1987.         <name> </name>
  1988.         <script></script>
  1989.     </part>
  1990.     <part>
  1991.         <id>205</id>
  1992.         <type>field</type>
  1993.         <visible> <false /> </visible>
  1994.         <dontWrap> <true /> </dontWrap>
  1995.         <dontSearch> <true /> </dontSearch>
  1996.         <sharedText> <true /> </sharedText>
  1997.         <fixedLineHeight> <false /> </fixedLineHeight>
  1998.         <autoTab> <true /> </autoTab>
  1999.         <lockText> <false /> </lockText>
  2000.         <rect>
  2001.             <left>2</left>
  2002.             <top>106</top>
  2003.             <right>507</right>
  2004.             <bottom>235</bottom>
  2005.         </rect>
  2006.         <style>shadow</style>
  2007.         <autoSelect> <false /> </autoSelect>
  2008.         <showLines> <false /> </showLines>
  2009.         <wideMargins> <false /> </wideMargins>
  2010.         <multipleLines> <false /> </multipleLines>
  2011.         <reservedFamily> 0 </reservedFamily>
  2012.         <titleWidth>0</titleWidth>
  2013.         <icon>0</icon>
  2014.         <textAlign>left</textAlign>
  2015.         <font>Monaco</font>
  2016.         <textSize>9</textSize>
  2017.         <textStyle>plain</textStyle>
  2018.         <textHeight>12</textHeight>
  2019.         <name></name>
  2020.         <script></script>
  2021.     </part>
  2022.     <part>
  2023.         <id>212</id>
  2024.         <type>field</type>
  2025.         <visible> <false /> </visible>
  2026.         <dontWrap> <false /> </dontWrap>
  2027.         <dontSearch> <false /> </dontSearch>
  2028.         <sharedText> <true /> </sharedText>
  2029.         <fixedLineHeight> <false /> </fixedLineHeight>
  2030.         <autoTab> <false /> </autoTab>
  2031.         <lockText> <false /> </lockText>
  2032.         <rect>
  2033.             <left>184</left>
  2034.             <top>250</top>
  2035.             <right>231</right>
  2036.             <bottom>315</bottom>
  2037.         </rect>
  2038.         <style>shadow</style>
  2039.         <autoSelect> <false /> </autoSelect>
  2040.         <showLines> <false /> </showLines>
  2041.         <wideMargins> <false /> </wideMargins>
  2042.         <multipleLines> <false /> </multipleLines>
  2043.         <reservedFamily> 0 </reservedFamily>
  2044.         <titleWidth>0</titleWidth>
  2045.         <icon>0</icon>
  2046.         <textAlign>center</textAlign>
  2047.         <font>Chicago</font>
  2048.         <textSize>12</textSize>
  2049.         <textStyle>plain</textStyle>
  2050.         <textHeight>16</textHeight>
  2051.         <name></name>
  2052.         <script></script>
  2053.     </part>
  2054.     <part>
  2055.         <id>217</id>
  2056.         <type>field</type>
  2057.         <visible> <false /> </visible>
  2058.         <dontWrap> <false /> </dontWrap>
  2059.         <dontSearch> <false /> </dontSearch>
  2060.         <sharedText> <true /> </sharedText>
  2061.         <fixedLineHeight> <false /> </fixedLineHeight>
  2062.         <autoTab> <false /> </autoTab>
  2063.         <lockText> <true /> </lockText>
  2064.         <rect>
  2065.             <left>147</left>
  2066.             <top>250</top>
  2067.             <right>194</right>
  2068.             <bottom>315</bottom>
  2069.         </rect>
  2070.         <style>shadow</style>
  2071.         <autoSelect> <false /> </autoSelect>
  2072.         <showLines> <false /> </showLines>
  2073.         <wideMargins> <false /> </wideMargins>
  2074.         <multipleLines> <false /> </multipleLines>
  2075.         <reservedFamily> 0 </reservedFamily>
  2076.         <titleWidth>0</titleWidth>
  2077.         <icon>0</icon>
  2078.         <textAlign>center</textAlign>
  2079.         <font>Chicago</font>
  2080.         <textSize>12</textSize>
  2081.         <textStyle>plain</textStyle>
  2082.         <textHeight>16</textHeight>
  2083.         <name></name>
  2084.         <script></script>
  2085.     </part>
  2086.     <part>
  2087.         <id>231</id>
  2088.         <type>field</type>
  2089.         <visible> <false /> </visible>
  2090.         <dontWrap> <false /> </dontWrap>
  2091.         <dontSearch> <false /> </dontSearch>
  2092.         <sharedText> <true /> </sharedText>
  2093.         <fixedLineHeight> <false /> </fixedLineHeight>
  2094.         <autoTab> <false /> </autoTab>
  2095.         <lockText> <true /> </lockText>
  2096.         <rect>
  2097.             <left>87</left>
  2098.             <top>221</top>
  2099.             <right>134</right>
  2100.             <bottom>286</bottom>
  2101.         </rect>
  2102.         <style>shadow</style>
  2103.         <autoSelect> <false /> </autoSelect>
  2104.         <showLines> <false /> </showLines>
  2105.         <wideMargins> <false /> </wideMargins>
  2106.         <multipleLines> <false /> </multipleLines>
  2107.         <reservedFamily> 0 </reservedFamily>
  2108.         <titleWidth>0</titleWidth>
  2109.         <icon>0</icon>
  2110.         <textAlign>center</textAlign>
  2111.         <font>Chicago</font>
  2112.         <textSize>12</textSize>
  2113.         <textStyle>plain</textStyle>
  2114.         <textHeight>16</textHeight>
  2115.         <name></name>
  2116.         <script></script>
  2117.     </part>
  2118.     <part>
  2119.         <id>240</id>
  2120.         <type>button</type>
  2121.         <visible> <false /> </visible>
  2122.         <reserved5> 0 </reserved5>
  2123.         <reserved4> 0 </reserved4>
  2124.         <reserved3> 0 </reserved3>
  2125.         <reserved2> 0 </reserved2>
  2126.         <reserved1> 0 </reserved1>
  2127.         <enabled> <true /> </enabled>
  2128.         <rect>
  2129.             <left>91</left>
  2130.             <top>305</top>
  2131.             <right>126</right>
  2132.             <bottom>328</bottom>
  2133.         </rect>
  2134.         <style>transparent</style>
  2135.         <showName> <true /> </showName>
  2136.         <highlight> <false /> </highlight>
  2137.         <autoHighlight> <false /> </autoHighlight>
  2138.         <sharedHighlight> <true /> </sharedHighlight>
  2139.         <family>0</family>
  2140.         <titleWidth>0</titleWidth>
  2141.         <icon>0</icon>
  2142.         <textAlign>center</textAlign>
  2143.         <font>Chicago</font>
  2144.         <textSize>12</textSize>
  2145.         <textStyle>plain</textStyle>
  2146.         <name>1</name>
  2147.         <script>on mouseUpsend mouseUp to bg btn id 238hide meend mouseUp</script>
  2148.     </part>
  2149.     <content>
  2150.         <layer>background</layer>
  2151.         <id>179</id>
  2152.         <text>Find___Check__HBL_Title List( BList BTList)_Page?_Import_Page1_Next__Prev_XStack</text>
  2153.     </content>
  2154.     <content>
  2155.         <layer>background</layer>
  2156.         <id>212</id>
  2157.         <text>EraseNameLoadSave</text>
  2158.     </content>
  2159.     <content>
  2160.         <layer>background</layer>
  2161.         <id>217</id>
  2162.         <text>EraseNameLoadSave</text>
  2163.     </content>
  2164.     <content>
  2165.         <layer>background</layer>
  2166.         <id>231</id>
  2167.         <text>EraseNameLoadSave</text>
  2168.     </content>
  2169.     <content>
  2170.         <layer>background</layer>
  2171.         <id>245</id>
  2172.         <text>                Exit                      Prev          Next                List          Save</text>
  2173.     </content>
  2174.     <content>
  2175.         <layer>background</layer>
  2176.         <id>244</id>
  2177.         <text>1) Note: Thes Picture List is now called the XStack List.  There may be as many XStacks as Pages in a Waldo document.¬¨¬¨The list scrolls as you move the cursor up and down.6) The File List May Now contain as many as 100 items. The items in a File List may optionally be sorted alphabetically.7) 29) 27) The List View of the Queue allows you to delete and move Spots in the Queue.¬¨¬¨By selecting a Spot you have the option of moving it up or down within the Queue as well as deleting Spots.¬¨¬¨The repositioning of Spots is important when creating complex Queues for publishing with a work or when making notes on a complex work that is being read in Waldo.41) The List function from within the Find function allows you to access the Button List list of words and phrases for your searches.27) 44) 27) Note: The Notes function appends a note to the "NEXT" Spot in the Queue.¬¨¬¨ (When you have just added a new Spot then it will be the next Spot in the Queue and you may select the Note function to start entering a Note for it.)¬¨¬¨Normally when you enter the Notes function it will be for the next Spot to be displayed. If you wish to notate the currently displayed Spot then choose Note and then Prev. You may also select the Spot to be edited from the List view.</text>
  2178.     </content>
  2179.     <name></name>
  2180.     <script>-- edit line 10, put "-- " before lineon idleif (offset(" sort",msg) > 0) or (offset("sort"&SPACE,msg) > 0) thenput empty into msgalertput "                         You May Not "&QUOTE&"Sort"&QUOTE&" Pages in Waldo!"wait 3 secput empty into msgend ifIF THE USERLEVEL > 3 THEN SET THE USERLEVEL TO 3get the mouseVif it < 19 and the visible of fld id 243 is false then show menuBar else Hide MenuBar-- fld id 243 is HyperButton notes fieldend idleon closeCard-- hides HyperButton Note fieldsif the visible of fld id 243 is true thenlock screenput empty into fld id 243hide fld id 243hide fld id 245end if-- TwinText codeif visible of fld id 239 is true thenset the name of bg btn id 238 to (the scroll of fld id 239)end if-- HyperButton codehide bg btn id 227-- mark cd/page num btnif the marked of this cd is true thenset the highlight of bg btn id 54 to trueelseset the highlight of bg btn id 54 to falseend ifif the visible of fld id 239 is true then lock screenend closeCard-- ----------------------Start of Hyper Button Codeon ShowHyperButtonif the number of this cd is not 1 thenif the visible of bg btn id 227 is true thenhide bg btn id 227exit to HyperCardend ifset cursor to watchhide menuBarDriveHyperButtonend ifif the number of this cd is 1 then play  "harpsichord" tempo 400 "b4h#"if the lockText of fld id 66 = true then play  "harpsichord" tempo 400 "b4h#"-- there is code for this function in a BG BTN. BG Field id 66 and BG(HyperButton)end ShowHyperButtonon DriveHyperButtonset cursor to watchlock screen--placeHyperButton-- set the loc of bg btn id 227 to the mouseLoc -- HyperGroupedTextset the Visible of bg btn id 227 to true -- HyperGroupedTextset the highlight of bg btn id 227 to true--if the commandKey is down then HyperButtonNote--set the loc of msg to 19,303put the script of bg btn id 227 into HyperButtonput the number of lines in HyperButton into tempif temp = "4" and the short name of bg btn id 227 = "0" then ¬¨set the name of bg btn id 227 to "1"set cursor to hand -- ¬• Xput line 4 to (the number of lines in HyperButton) of HyperButton into GoButtonif  (the short name  of bg btn id 227  ) > the number of lines in goButton thenset the name of bg btn id 227  to 1play  "harpsichord" tempo 400 "b4h#"end ifput the number of lines in GoButton into linesInGoButtonput ">"&((the short name of bg btn id 227))&"/"&linesInGoButton&" ["&(the short name of bg btn id 230)&"]"&" Shift=Add  Opt=Go  Cmnd=List/Note  Click=Exit"-- code checks to see if there are notes for buttonif the number of items in line ((the short name of bg btn id 227)) of goButton > 4 thenif item 5 of line ((the short name of bg btn id 227)) of goButton ‚↠empty thenselect char 2 to (offset("/",msg))-1 of word one of msgend ifend if--repeat until the mouseClickset cursor to handunlock screenplaceHyperButtonif the ShiftKey is down thenplay fluteif (the short name of bg btn id 227) ‚↠0 thenanswer "Add this Spot after "&QUOTE&(the short name of bg btn id 227)&QUOTE&" of this Queue?" with "Yes" or "Cancel"if it is "Cancel" then DriveHyperButtonset the cursor to watchput line 4 to (the number of lines in HyperButton) of HyperButton into GoButtonif the number of lines in GoButton >= 100 thenput "                 There can not be more than 100 HyperButtons"wait 3 secbeepput ">"&(the short name of bg btn id 227-1)&"/"&linesInGoButton&" ["&(the short name of bg btn id 230)&"]"&" Shift=Add  Opt=Go  Cmnd=List/Note  Click=Exit"set cursor to handnext repeatend ifend ifset the autoHilite of bg btn id 227 to FALSEput  RETURN&(the number of this cd)&","&(the scroll of bg fld id 66)&","&(the loc of bg btn id 227) after line (the short name of bg btn id 227)+3 of HyperButtonset the script of bg btn id 227 to HyperButtonset the name of bg btn id 227 to (the short name of bg btn id 227)+1put the loc of bg btn id 227 into temphide msgexit to HyperCardend ifplaceHyperButtonif the OptionKey is down then-- ¬• X + 1put line 4 to (the number of lines in HyperButton) of HyperButton into GoButtonif GoButton = empty thenhide msgbeepexit to HyperCardend ifif  (the short name  of bg btn id 227  ) > the number of lines in goButton thenset the name of bg btn id 227  to 1play  "harpsichord" tempo 400 "b4h#"hide msgexit to HyperCardend ifhide msgalertvisual effect iris open fastgo to cd (item one of line (the short name of bg btn id 227 ) of GoButton)lock Screenset the scroll of bg fld id 66 to (item 2 of line (the short name of bg btn id 227 ) of GoButton)put the scroll of bg fld id 66 into tempScrollif tempScroll ‚↠(item 2 of line (the short name of bg btn id 227 ) of GoButton) or (item one of line (the short name of bg btn id 227 ) of GoButton) > the number of cds  thenput "This HyperButton List does NOT match this document!"wait 4 secend ifset the loc of bg btn id 227 to (item 3 of line (the short name of bg btn id 227 ) of GoButton),(item 4 of line (the short name of bg btn id 227 ) of GoButton)set the visible of bg btn id 227  to trueset the name of bg btn id 227  to ((the short name of bg btn id 227  ) + 1)set cursor to Ibeamhide msgexit to HyperCardend ifplaceHyperButton-- ¬• Xif the commandKey is down and the number of lines in HyperButton > 3 thenanswer "List View  or  Write Notes" with "List" or "Notes" or "Cancel"if it is "Cancel" thenset cursor to handnext repeatend ifif it is "List" thenHyperButtonOptionsend ifif it is "Notes" thenHyperButtonNoteend ifend ifend repeathide msghide bg btn id 227end DriveHyperButtonon HyperButtonNoteglobal CharsInHBnoteshide msgset cursor to watchhide bg btn id 227put the script of bg btn id 227 into HyperButtonput the number of chars in HyperButton into CharsInHBnotesput the number of lines in HyperButton into HBlinesset cursor to hand -- ¬•put line 4 to HBlines of HyperButton into GoButtonput empty into fieldHolder -- Initializes variable, sets variable to 0.-- item 5 of the line is the note-- the name of bg btn id 227 is the current line numberset the name of fld id 243 to (the short name of bg btn id 227 )if the number of items in line (the short name of bg btn id 227) of GoButton > 4 thenput item 5 of line (the short name of bg btn id 227) of GoButton into fieldHolder-- --repeatif offset("‚âà",fieldHolder) > 0 thenput "," into char (offset("‚âà",fieldHolder)) of fieldHolderelseexit repeatend ifend repeat-- --repeatif offset("¬¨",fieldHolder) > 0 thenput RETURN into char (offset("¬¨",fieldHolder)) of fieldHolderelseexit repeatend ifend repeatend ifif the ShiftKey ‚↠down then-- This next block of script goes to current Spot in Queue and displays the page & Spothide msg-- alertset cursor to nonevisual effect iris open fastgo to cd (item one of line (the short name of bg btn id 227 ) of GoButton)lock Screenset the scroll of bg fld id 66 to (item 2 of line (the short name of bg btn id 227 ) of GoButton)put the scroll of bg fld id 66 into tempScrollif tempScroll ‚↠(item 2 of line (the short name of bg btn id 227 ) of GoButton) or (item one of line (the short name of bg btn id 227 ) of GoButton) > the number of cds  thenput "This HyperButton List does NOT match this document!"wait 4 secend ifset the loc of bg btn id 227 to (item 3 of line (the short name of bg btn id 227 ) of GoButton),(item 4 of line (the short name of bg btn id 227 ) of GoButton)set the visible of bg btn id 227  to trueset cursor to noneunlock screenput "Click=Continue"wait until the mouseClickend ifhide msghide bg btn id 227--put fieldHolder into fld id 243lock screenshow fld id 243 -- HyperButton Listshow fld id 245 -- hides buttons at bottom of cdunlock screenselect After the last char of fld id 243disable menu "Waldo"-- disable menu "Font"disable menu "Go"disable menu "File"put ((the short name of bg btn id 227))&"/"&(the number of lines in GoButton)&" ["&(the short name of bg btn id 230)&"] NOTES ARE LIMITED TO 900 CHARACTERS."exit to HyperCardend HyperButtonNoteon placeHyperButton-- 1 = H, 2 = Vif the mouseH < 48 then set the loc of bg btn id 227 to 48,item 2 of the loc of bg btn id 227if the mouseH  > 448 then set the loc of bg btn id 227 to 448,item 2 of the loc of bg btn id 227if item 2 of the mouseLoc < 250 thenif item 2 of the mouseLoc > 30 thenset the loc of bg btn id 227 to the mouseLocelseset the loc of bg btn id 227 to item one of the loc of bg btn id 227,30end ifif item 2 of the mouseLoc < 25 thenset the scroll of bg fld 1 to (the scroll of bg fld 1)-(the textHeight of bg fld 1)end ifelseset the loc of bg btn id 227 to item one of the loc of bg btn id 227,250set the scroll of bg fld 1 to (the scroll of bg fld 1)+(the textHeight of bg fld 1)end ifend placeHyperButtonon HyperButtonOptionshide bg btn id 227get the script of bg btn id 227put it into HyperButtonput line 4 to (the number of lines in HyperButton) of HyperButton into GoButtonif GoButton = empty thenbeephide msgset the name of bg btn id 227 to "0"hide fld id 244exit to HyperCardend ifset cursor to watchput empty into holderrepeat with counter = 1 to the number of lines in GoButtonput ((item 1 of line counter of GoButton )-1)&") "&(item 5 of line counter of GoButton)&RETURN after holderend repeat---- --repeatif offset("‚âà",Holder) > 0 thenput "," into char (offset("‚âà",Holder)) of Holderelseexit repeatend ifend repeat-- ----put holder into fld id 244show fld id 244put 244 into activeFieldunlock screenset the loc of msg to 19,303put empty into xtestOneset the cursor to 131show fld id activeField-- put values in variablesput the top of fld id activeField into FldTopput the textHeight of fld id activeField into textHeightput the height of fld id activeField into FldHeightput the number of lines in fld id activeField into NumberOfLinesNTitlesrepeat until the mouseClickput the short name of bg btn id 227 into nextInQ -- this variable is the next sopt in Queue--  multiply by 2 so selection (hot) spot is in middle of lineput (round(the mouseV-(FldTop))+(abs(round(textHeight*1)))) into mouseTemp-- put abs(round(mouseTemp/textHeight)) into lineVariableput (round(mouseTemp/textHeight)) into lineVariable-- the next line only if lines are added and deleted-- put the number of lines in fld id activeField into NumberOfLinesNTitles-- the next line is critical to selectScrolling...you must-- subtract 1 from textHeight to get proper valueput round((the scroll of fld id activeField)/(textHeight-0)) into theScroll-- Select last line codeif (lineVariable+theScroll) > NumberOfLinesNTitles thenselect line NumberOfLinesNTitles of fld id activeFieldput NumberOfLinesNTitles into resetLineput NumberOfLinesNTitles&"/"&NumberOfLinesNTitles&" ["&nextInQ&"] Shift=Select  Opt=ReSet Cmnd=Note Click=Exit"end if-- scroll up & select codeif the mouseV < (FldTop) and lineVariable < lineVariable+theScroll ¬¨and lineVariable ‚↠0  thenselect line (round(theScroll/2)) of fld id activeFieldput (round(theScroll/2)) into resetLineput (round(theScroll/2))&"/"&NumberOfLinesNTitles&" ["&nextInQ&"] Shift=Select  Opt=ReSet Cmnd=Note Click=Exit"end if-- select line X codeif the mouseV > FldTop and lineVariable+(theScroll) > 0 and ¬¨lineVariable+(theScroll) <= NumberOfLinesNTitles ¬¨thenselect line ((lineVariable)+(theScroll)) of fld id activeFieldput ((lineVariable)+(theScroll)) into resetLineput ((lineVariable)+(theScroll))&"/"&NumberOfLinesNTitles&" ["&nextInQ&"] Shift=Select  Opt=ReSet Cmnd=Note Click=Exit"end if-- select line 1 codeif the mouseV < FldTop and lineVariable <= 1 thenselect line 1 of fld id activeFieldput one into resetLineput one&"/"&NumberOfLinesNTitles&" ["&nextInQ&"] Shift=Select  Opt=ReSet Cmnd=Note Click=Exit"end ifput the selectedText into lookUpif the  optionKey is down thenset the name of bg btn id 227 to resetLine --  HyperButton ReSetend ifif the CommandKey is down thenhide fld id 244set the name of bg btn id 227 to resetLineHyperButtonNoteend ifif the shiftKey is down thenput lookUp into lineSelectedput line resetLine&RETURN of GoButton into selectedLineHolderdelete line resetLine of fld id activeFieldHyperButtonMod selectedLineHolder, resetLine,lineSelectedend if---end repeathide fld id 244DriveHyperButtonexit to HyperCardend HyperButtonOptionson HyperButtonMod selectedLineHolder, resetLine, lineSelectedput 244 into activeFieldunlock screenset the loc of msg to 19,303put empty into xtestOneset the cursor to 131show fld id activeField-- put values in variablesput the top of fld id activeField into FldTopput the textHeight of fld id activeField into textHeightput the height of fld id activeField into FldHeightput the number of lines in fld id activeField into NumberOfLinesNTitlesrepeat until the mouseClick--  multiply by 2 so selection (hot) spot is in middle of lineput (round(the mouseV-(FldTop))+(abs(round(textHeight*1)))) ¬¨into mouseTemp-- put abs(round(mouseTemp/textHeight)) into lineVariableput (round(mouseTemp/textHeight)) into lineVariable-- the next line only if lines are added and deleted-- put the number of lines in fld id activeField into NumberOfLinesNTitles-- the next line is critical to selectScrolling...you must-- subtract 1 from textHeight to get proper valueput round((the scroll of fld id activeField)/(textHeight-0)) ¬¨into theScroll-- Select last line codeif (lineVariable+theScroll) > NumberOfLinesNTitles thenselect line NumberOfLinesNTitles of fld id activeFieldput NumberOfLinesNTitles into putBeforeLineput NumberOfLinesNTitles&"/"&NumberOfLinesNTitles&" Shift=Insert  Cmnd=Del  Click=Exit "&&lineSelectedend if-- scroll up & select codeif the mouseV < (FldTop) and lineVariable < lineVariable+theScroll ¬¨and lineVariable ‚↠0  thenselect line (round(theScroll/2)) of fld id activeFieldput (round(theScroll/2)) into putBeforeLineput (round(theScroll/2))&"/"&NumberOfLinesNTitles&" Shift=Insert  Cmnd=Del  Click=Exit "&&lineSelectedend if-- select line X codeif the mouseV > FldTop and lineVariable+(theScroll) > 0 and ¬¨lineVariable+(theScroll) <= NumberOfLinesNTitles ¬¨thenselect line ((lineVariable)+(theScroll)) of fld id activeFieldput ((lineVariable)+(theScroll)) into putBeforeLineput ((lineVariable)+(theScroll))&"/"&NumberOfLinesNTitles&" Shift=Insert  Cmnd=Del  Click=Exit "&&lineSelectedend if-- select line 1 codeif the mouseV < FldTop and lineVariable <= 1 thenselect line 1 of fld id activeFieldput one into putBeforeLineput one&"/"&NumberOfLinesNTitles&" Shift=Insert  Cmnd=Del  Click=Exit "&&lineSelectedend ifput the selectedText into lookUpif the CommandKey is down thenget the script of bg btn id 227put line 4 to (the number of lines in it) of it into tempdelete line resetLine of tempset the autoHilite of bg btn id 227 to FALSEput "on mouseUp"&RETURN&"DriveHyperButton"&RETURN&"end mouseUp"&RETURN&temp into btnScriptset the script of bg btn id 227 to btnScriptexit repeatend ifif the shiftKey is down thenget the script of bg btn id 227put line 4 to (the number of lines in it) of it into tempdelete line resetLine of tempput selectedLineHolder&RETURN before line putBeforeLine of tempput "on mouseUp"&RETURN&"DriveHyperButton"&RETURN&"end mouseUp"&RETURN&temp into btnScriptset the autoHilite of bg btn id 227 to FALSEset the script of bg btn id 227 to btnScriptexit repeatend if---end repeatHyperButtonOptionsexit to HyperCardend HyperButtonMod-- ----------------------End of Hyper Button Codeon doMenu whichItemglobal cardMenuif cardMenu = 0 thenif whichItem = "New Card" or¬¨whichItem = "Paste Card" or¬¨whichItem = "Cut Card" or¬¨whichItem = "Copy Card" or¬¨whichItem = "Delete Card" or ¬¨whichItem = "Paste Picture" then exit to HyperCardif the visible of cd btn id 153 of cd 1 is true thenif whichItem is "Clear Text" or ¬¨whichItem is "Paste Text" or ¬¨whichItem is "Cut Text" thenif the selectedText contains "*" or ¬¨the selectedText contains "|" or ¬¨the selectedText contains "^" or ¬¨the selectedText contains "¬•" thenanswer "Deleting Format Characters may CHANGE"&return&"Waldo's Format when Output to Second Sight!" with "Cancel" or "Continue"if it is "Cancel" then exit to HyperCardend ifend ifend ifif whichItem = "First" thensend mouseUp to bg btn id 10exit to HyperCardend ifif whichItem = "Prev" thensend mouseUp to bg btn id 159exit to HyperCardend ifif whichItem = "Next" thensend mouseUp to bg btn id 160exit to HyperCardend ifif whichItem = "Last" thengo to the last cdexit to HyperCardend ifif whichItem = "Help" thenif the shiftKey is down thenpush cdgo to stack "WaldoHelp"exit to HyperCardend ifif the number of cds > 1 thenpush cdgo to stack (cd fld ID 72 of cd 1)&"Help"exit to HyperCardend ifend ifpass doMenuend ifpass doMenuend doMenuon openCard--if the name of bg btn id 54 is ((the number of this cd)-1) then exit to Hypercardset the name of bg btn id 54 to ((the number of this cd)-1)-- TwinText scroll matching routineif the visible of fld id 239 = true thenset the scroll of fld id 239 to (the short name of bg btn id 238)unlock screenend if---- mark cd/page num btnif the marked of this cd is true thenset the highlight of bg btn id 54 to trueelseset the highlight of bg btn id 54 to falseend ifset the lockText of fld id 66 to falseif the sharedText of fld id 179 is false thenrepeat with counter = 0 to 30put line counter of fld ID 66 into testif offset("*",test) > 0 thenput test into FLD ID 179exit repeatend ifend repeatend ifif cd fld "AllFoldedPages" of cd 1  ‚↠empty thenput the number of items in line 1 of cd fld "AllFoldedPages" of cd 1 into  numItemsput cd fld "AllFoldedPages" of cd 1 into fieldHolderrepeat with counter = 1 to numItemsif (the number of this cd) is item counter of line one of fieldHolder thenset the lockText of fld id 66 to trueexit repeatend ifend repeatend if-- GrayedPage#1if the short name of bg btn id 54 is "1" thenshow bg btn id 204elsehide bg btn id 204end if----set cursor to handend openCardon arrowKey directionget the number of this cdif  it is 1 or the visible of fld id 243 is true then exit to HyperCardelseif direction is "Left" then send mouseUp to bg btn "Prev"if direction is "Right" then send mouseUp to bg btn "Next"end ifend arrowKeyon SetMarkBtns MarkBtnId, MarkBtnNameif the commandKey is down thenset name of bg btn id MarkBtnId to 0exit to Hypercardend ifif the shiftkey is down thenset name of bg btn id MarkBtnId to (the number of this cd -1)exit to Hypercardend ifif the short name of bg btn id MarkBtnId = (the number of this cd )-1 thenplay  "harpsichord" tempo 400 "b4h#"exit to HyperCardend ifif the short name of bg btn id MarkBtnId  <> 0 thenvisual effect zoom openget the short name of bg btn id MarkBtnIdadd one to itgo to cd itexit to Hypercardend ifend SetMarkBtnson ImportPageget the number of this cdif it is 1 then exit to hyperCardshow cd btn id 66 of cd 1push cdvisual effect zoom opengo to first cdend ImportPage</script>
  2181. </background>
  2182.